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The following is a list of specifications for this release of 
DOUBLE D CP/M 2.2. 



1. Supports single and double density diskettes. Single and 
double density diskettes may be mixed on a drive-by-drive 
basis. The FORMAT program allows for density selection when 
formatting a diskette. 

2. Supports single and double sided drives and diskettes. 
Single and double sided diskettes may be mixed on a drive-by- 
drive basis. The FORMAT program automatically determines the 
number of sides of the diskette and formats according l*y. 

3. Supports the following Western Digital controller chips! 
FD1971-01, FD1 793-01 and the entire FD179x-02 family. This 
software will operate both the true and inverted data bus 
controller chips and is controlled by setting USER SWITCH on 
the DOUBLE D DISK CONTROLLER. 

4. Supports the Serial Interface of the DOUBLE D DISK 
CONTROLLER as the LIST DEVICE. The EI A OUT is the serial 
output. In the distribution diskette* this is set to run at 
9600 baud. The EIA IN is used to monitor the PRINTER READY 
signal. A positive signal level indicates ready. A single 
bvte change in DCM allows for different baud rates. 



The following is a list of files present on the JADE DOUBLE 
D diskette. A brief description is also included. 



/ ASM.COM 
BIOS. ASM 

BI0SGEN.COM 



/ BLT.ASM 
CPM20.COM 



y DCM.ASM 

DCM. HEX 
DCMGEN.COM 



DDBIOS.ASM 



DDBIOS.HEX 
DDBOOT.ASM 

DDT.COM 
DEBLOCK. ASM 
DISKDEF.LIB 
DUMP. ASM 
DUMP.COM 
ED.COM 
FORMAT. ASM 
F0RMAT.COM 



L0AD.COM 
M0VCPM.COM 

0LDSYS.COM 

PIP.COM 
STAT.COM 
SUBMIT.COM 
SYSGEN.COM 



XSUB.COM 



CP/M ASSEMBLER - Provided bv Digital Research. 
BASIC I/O SYSTEM ~ Provided bv Digital Research. 
Bios for MDS development svstem. 

BIOS GENERATOR UTILITY - Used to read and write an 
image of the users CBIOS from and to svstem track 
0. The imase of DDBIOS resides at 1000H to 13FFH. 
Use DDT to put the DDBIOS image at that address. 
BIOS LOADER TRANSIENT - Source code for "COLD 
START LOADER" as generated bv M0VCPM.COM. 
IMAGE of COLD START LOADER, CCP and BDOS in the 
same format as generated bv MOVCPM 20 # and then 
SAVE 34 CPM20.COM. 

DISK CONTROLLER MODULE - Source code (TDL ZSO) for- 
th© DOUBLE D onboard Z80A. 

DISK CONTROLLER MODULE - Intel Hex format of DCM. 
DCM GENERATOR UTILITY - Used to read and write an 
image of the users DCM from or to svstem track 0. 
The image of DCM resides at 1000H to 13FFH. Use 
DDT to put DCM image at this address and to make 
patches. 

DOUBLE D BIOS - CP/M Assembler format source code 
for Double D BIOS. This assemble is listed in the 
software manual. 

DOUBLE D BIOS - Intel Hex format DDBIOS file. 
DOUBLE D BOOTSTRAP - CP/M Assembler format source 
code for the bootstrap. 
DYNAMIC DEBUG TOOL - Digital Research. 
DEBLOCKING SOURCE CODE - Digital Research. 
DISK DEFINITION LIBRARY - Digital Research. 
FILE DUMP UTILITY - Source bv Digital Research. 
FILE DUMP UTILITY - COM bv Digital Research. 
EDITOR UTILITY - Digital Research. 
FORMAT UTILITY - DOUBLE D format program source. 
FORMAT UTILITY - DOUBLE D format program. Formats 
on anv drive A through D in single and double 
density. 

LOAD UTILITY - Digital Research. 

CP/M RELOACATION UTILITY - Generates CP/M svstem 
with BLT for Jade Double D. 

SYSGEN UTILITY ~ Digital Research SYSGEN.COM as 
documented in CP/M manuals. 
FILE TRANSFER UTILITY - Digital Research. 
SYSTEM STATUS UTILITY - Digital Research. 
CP/M BATCH SUBSYSTEM - Digital Research. 
CSL/CCP/BDOS GENERATOR UTILITY - Double D svstem 
tracks compatable. Similar to SYSGEN.COM 
described in CP/M manuals but does not read or 
write BIOS. Use BIOSGEN for Your CBIOS. 
EXTENDED BATCH SUBSYSTEM - Digital Research. 



The SYSTEM TRACKS have a different layout than the diskettes 
distributed by DIGITAL RESEARCH. This section presents a 
discription of the system tracks (0 and 1) as distributed for the 
JADE DOUBLE D disk controller board. Those modules residing on 
the SYSTEM TRACKS which often need to be modified for a specific 
system are on track Q» which is in single density. CCP and BDOS* 
which are not modified by the user are on track 1 in double 
density. All data tracks are in single density such that the 
DOUBLE D distribution diskette can be read and modified on most 8" 
single density CP/M systems. 

The following table shows the layout of SYSTEM TRACK 0. This 
track is formatted in single density with 26 sequentially numbered 
sectors. 



Sector- 


Exe cut 


ion 


Format 


Module 


GRH 


■■■'■'. 


Number 


Address 


Ld Addr 


Name 


Name ] 


(2.6 


01 


n. a. 






IDT 


IDT 


;"■£/*£» 


02 


13S0H 


(DD) 


1080H 


BLT 


BLT 


-,-p .,.-,• 


03 






1100H 




5U 


!)i e 


04 


4A00H+b 


1180H 


BIOS 


DCM 


... PH' 


05 


4A30H+b 


1200H 


BIOS 


DCM 




06 


4B00H+b 


1280H 


BIOS 


DCM 




07 


4BS0H+b 


1300H 


BIOS 


DCM 




OS 


4C00H+b 


1380H 


BIOS 


DCM 




09 


4C30H+b 


1400H 


BIOS 


DCM 




10 


4D00H+b 


1480H 


BIOS 


DCM 




11 


4D30H+b 


1500H 


BIOS 


DCM 




12 






15S0H 


RSV 


RSV 




13 


1000H 


(DD) 


1600H 


DCM 


BIOS 


'.'"' A ■ 


14 


1080H 


<DD) 


1680H 


DCM 


BIOS 




15 


1100H 


(DD> 


1700H 


DCM 


BIOS 




16 


11S0H 


(DD) 


1780H 


DCM 


BIOS 




17 


1200H 


(DD> 


1800H 


DCM 


BIOS 




IS 


1280H 


(DD) 


1880H 


DCM 


BIOS 




19 


1300H 


(DD) 


1900H 


DCM 


BIOS 




20 


1380H 


(DD) 


1980H 


DCM 


BIOS 




21 


1400H 


( DD ) 


1A00H 


RSV 


BIOS 


BSV- 


22 


1480H 


(DD) 


1A80H 


RSV 


BIOS 


RSV- 


23 


1500H 


(DD) 


1B00H 


RSV 


BIOS 


RSV 


24 


1580H 


(DD) 


1B80H 


RSV 


BIOS 


RSV 


25 


1600H 


(DD) 


1C00H 


RSV 


BIOS 


RSV 


26 


1680H 


(DD) 


1C80H 


RSV 


BIOS 


RSV 



The following table shows the layout of SYSTEM TRACK 1. This 
track is formatted in double density with 50 physically staggered 
sectors. 



Sector- 


Execution 


Format 


Modu 1 e 


Number 


Address 


Ld Addr 


Name 


01 




1D00H 


SPARE 


02 


3400H+D 


1D80H 


CCP 


03 


3480H+b 


1E00H 


CCP 


04 


3500H+b 


1E80H 


CCP 


05 


35S0H+b 


1F00H 


CCP 


06 


3600H+b 


1F80H 


CCP 


07 


3680H+b 


2000H 


CCP 


03 


3700H+b 


2080H 


CCP 


09 


3780H+b 


2100H 


CCP 


10 


3800H+b 


2180H 


CCP 


11 


3880H+b 


2200H 


CCP 


12 


3900H+b 


2230H 


CCP 


13 


3980H+b 


2300H 


CCP 


14 


3A00H+b 


2380H 


CCP 


15 


3A80H+b 


2400H 


CCP 


16 


3B00H+b 


2480H 


CCP 


17 


3B80H+b 


2500H 


CCP 


13 


3C00H+b 


2580H 


BDOS 


19 


3C80H+b 


2600H 


BBOS 


20 


3D00H+b 


2680H 


BDOS 


21 


3B80H+b 


2700H 


BDOS 


22 


3E00H+b 


2730H 


BDOS 


23 


3E80H+b 


2800H 


BDOS 


24 


3F00H+b 


2880H 


BDOS 


25 


3F80H+b 


2900H 


BDOS 


26 


4000H+b 


2980H 


BDOS 


27 


4080H+b 


2A00H 


BDOS 


28 


4100H+b 


2A80H 


BDOS 


29 


4180H+b 


2B00H 


BDOS 


30 


4200H+b 


2B80H 


BDOS 


31 


4280H+b 


2C00H 


BDOS 


32 


4300H+b 


2C80H 


BDOS 




4380H+b 


2D00H 


BDOS 


34 


4400H+b 


2D80H 


BDOS 


35 


4480H+b 


2E00H 


BDOS 


36 


4500H+b 


2E80H 


BDOS 


37 


4580H+b 


2F00H 


BDOS 


38 


4600H+b 


2F80H 


BDOS 


39 


4680H+b 


3000H 


BDOS 


40 


4700H+b 


3080H 


BDOS 


41 


4780H+b 


3100H 


BDOS 


42 


4800H+b 


3180H 


E'Eiijy 


43 


4880H+b 


3200H 


BDOS 


44 


4900H+b 


3280H 


BDOS 


45 


4980H+b 


3300H 


BDOS 


46 




3330H 


SPARE 


47 




3400H 


SPARE 


48 




3480H 


SPARE 


49--" 






SPARe 


50 






SPARE > 



ho< 



A I 



SYSTEM TRACK GENERATOR UTILITIES 



The three generator utilities SYSGEN.COM, BI0SGEN.COM, and 
DCMGEN.COM provide the end user the ability to extract and 
rewrite various sections of the system tracks. The following 
table shows which sections of memory are used by each program 
and which system track modules are read or rewritten. 
SYSGEN.COM is similiar to the SYSGEN.COM described in the CP/M 
2.0 manual set. Notice the difference is the BIOS module. 



UTILITY 

SYSGEN.COM 

BI0SGEN.COM 
DCMGEN.ASM 



MODULE 



TRACK 



BLT 





2 


CCP 


1 


2-17 


BDOS 


1 


18-45 


BIOS 





4-11 


DCM 





13-20 



SECTORS SYSTEM ADDRESS 



0900-097FH 
0980-1 17FH 
U80-1F7FH 



1000-13FFH 
1000-13FFH 



CHANGING SYSTEM SIZE 



The following section is intended to lead the customer through 
the sequence of operations needed to change the operating 
system size of a diskette. A 32K system is generated in this 
exampl e. 

Make a copy of DDBIOS.ASM, calling the new copy DDBIQS32.ASM 
indicating that this is to be a 32K DDBIGS. Edit this file 
changing the equate CPM*NK from 20 to 32. See example below. 
Assemble this new program (expecting zero errors). In the PRN 
file of this assembly note the value generated for the name 
BI0S*R. This value is used when loading DDBIOSnn. HEX. See 
the PRN section below. 



DECLARE CP/M 2.2 SYSTEM SIZE 



0020 - 



CPM*NK EQU 



SYSTEM SIZE K BYTES. 



; DOUBLE D HARDWARE PARAMETER - SYSTEM PORT AD 



0043 = 



D*P0RT EQU 



043H 



; DOUBLE D PORT ADDRESS 



5 SELECT NUMBER OF DISK DRIVES USED 



0002 = 



N*DRVS EQU 



; SELECT 1 TO 4 DRIVES. 



? DISK OPERATING SYSTEM ADDRESSES. 



0400 
SOOO 
3000 

0100 
6400 
6C00 
7A00 
9600 
FOOO 
0003 
0004 



K*B 


EQU 


1024 


CPMSSZ 


EQU 


CPM*NK * K*B 


CPM*BS 


EQU 


CPM*SZ~<20*K*B) 


TPA 


EQU 


0100H 


CCP 


EQU 


CPM*BS+3400H 


BDOS 


EQU 


CPM*BS+3C00H 


BIOS 


EQU 


CPM*BS+4A00H 


BIOS*R 


EQU 


1000H-BI0S 


BOOT 


EQU 


OFOOOH 


IO*LOC 


EQU 


0003H 


DF*LQC 


EQU 


0004H 



5 IK BYTE SIZE. 
STOP SYSTEM AD 
5CP/M BIAS VAL 

; ADDRESS OF TP 
? ADDRESS OF CC 
? ADDRESS OF BD 
5 ADDRESS OF BI 
SDDT OFFSET 10 
5 BOOT PROM JUM 
?I/0 BYTE LOCA 
5 DRIVE ASSIGN 



; DOUBLE D SYSTEM PARAMETERS 



The following section displays the system interaction as 
viewed from the console when writ ins DDBIOSnn. HEX to the 
svstem tracks. The left side of the example is the console 
interaction. The SYSTEM is printing in UPPER CASE while the 
user is typing in lower case. The right side of the example 
contains comments. PLEASE NOTE that the value for LOAD WITH 
OFFSET is the value set for BIQS*R. 



CONSOLE INTERACTION 



COMMENTS 



A>ddt 



DDT VERS 2.2 




-flOOO, 


13ff, 





-iddbios32. h 


ex 


--r-9600 






NEXT PC 




1309 0000 




-11000 






1000 


JMP 


7A36 


1003 


JMP 


7A42 


1006 


JMP 


F006 


1009 


JMP 


F009 


100C 


JMP 


FOOC 


100F 


JMP 


7AB0 


1012 


JMP 


7AAF 


1015 


JMP 


7AAC 


1018 


JMP 


7AD0 


101B 


JMP 


7AD5 


101E 


JMP 


7AF4 


-30 






A>bios3en 





EXECUTE DDT 
DDT SIGNON 
CLEAR MEMORY 
ENTER FILENAME 
LOAD WITH OFFSET 
DDT RESPONDS 

DISS ASSEMBLE 
TO VERIFY LOAD 



JADE COMPUTER PRODUCTS 
BIOSGEN 2.2 - DOUBLE D 



LOOKS GOOD 
REBOOT SYSTEM 

EXECUTE BIOSGEN 

BIOSGEN SIGNS ON 



EXTRACT BIOS FROM DRIVE <CR TO BYPASS)? 



DO NOT EXTRACT 



WRITE BIOS ON DRIVE (CR TO EXIT)? b 
TYPE CR WHEN DRIVE B READY. 

WRITE BIOS ON DRIVE (CR TO EXIT)? 
A> 



SELECT DRIVE 
TYPE CR WHEN READY. 
WRITING TO DRIVE 
TYPE CR TO EXIT 
BACK TO CP/M 



Now that DDBIOS has been written to the system tracks we will 
proceed to load CCP/BDOS. The following section displays 
system interaction as viewed from the console when generating 
a new size CCP/BDOS and writing this to the system tracks. 



CONSOLE INTERACTION 



COMMENTS 



A>movcpm 32 * 

CONSTRUCTING 32K CP/M VERS 2.2 
READY FOR "SYSGEN" OR 
"SAVE 34 CPM32.COM" 
A>sysgen 



EXECUTE MOVCPM 
USE '#■' OPTION 
MOVCPM SIGNON 

MOVCPM FINISHED 
EXECUTE SYSGEN 



•JADE COMPUTER PRODUCTS 
SYSGEN 2.2 - DOUBLE D 



SYSGEN SIGNON 



EXTRACT SYS FROM DRIVE (CR TO BYPASS)' 



DO NOT EXTRACT 



WRITE SYS ON DRIVE (CR TO EXIT)? b 
TYPE CR WHEN DRIVE B READY. 

WRITE SYS ON DRIVE (CR TO EXIT)? 
A> 



SELECT DRIVE 
CR WHEN READY 
WRITING ON DRIVE 
CR TO EXIT 



This completes the steps needed to generate the system 
for a different system size. 



tracks 



Besides containing CCP/BDOS and DDBIOSj the svsterri tracks must 
also contain DCM (Disk Controller Module). The following 
sequence display svstem interaction as viewed from the console 
when writing DCM to the svstem tracks. Please note that after- 
verifying a proper load ( bv displaying some of DCM) that any 
timing or other modif cations to DCM should be made before 
exiting DDT. 



CONSOLE INTERACTION 



COMMENTS 



A>ddt 

DDT VI 

-f 1000, 13ff ,0 

-idcm2. hex 

-r 

NEXT PC 

13AF 0000 

-dlOOO, 103f 

1000 C3 00 00 C3 80 17 41 

1010 5E 01 50 00 50 00 01 

1020 D3 04 08 FE 3E DO A9 

1030 C9 00 00 00 00 00 00 

-gO 



EXECUTE DDT 
DDT SIGNS ON 
CLEAR MEMORY 
ENTER FILENAME 
LOAD ABSOLUTE 
DDT RESPONDS 

TO VERIFY LOAD 

10 06 19 10 FE C3 74 10 00 A.. 

00 FD El DB 05 D3 07 78 A9 S .P.P 

D3 04 E3 E3 E3 E3 DB 04 A9 > 

00 DB 20 Dl 2A 06 10 E9 FB 

REBOOT SYSTEM 



A>dcmgen 

JADE COMPUTER PRODUCTS 
DCMGEN 2.2 - DOUBLE D 



EXECUTE DCMMGEN 
DCMGEN SIGNS ON 



EXTRACT DCM FROM DRIVE (CR TO BYPASS)? 



DO NOT EXTRACT 



WRITE DCM ON DRIVE (CR TO EXIT)? 
TYPE CR WHEN DRIVE B READY. 



SELECT A DRIVE 
TYPE CR WHEN READY. 



WRITE DCM ON DRIVE (CR TO EXIT)? 
A> 



TYPE CR TO EXIT 
BACK TO CP/M 



10 



NEW CP/M 2.2 
BDOS FUNCTIONS 



* FUNCTION 37: RESET DRIVE * 

* -k 

* Entry Parameters: * 

* Register C 

* Register DE: 



25H * 
Drive Vector * 



* Returned Value : * 

* Register A: 00H * 



*********************************** 



The RESET DRIVE function allows resetting of specified 
drive (s) . The passed parameter is a 16 bit vector of drives 
to be reset, the least significant bit is drive A:. 

In order to maintain compatibility with MP/M, CP/M 
returns a zero value. 



* FUNCTION 40: WRITE RANDOM WITH* 

* ZERO FILL * 

* Entry Parameters 

* Register C 

* Register DE 

* Returned Value: * 

* Register A: Return Code * 



28H * 
FCB Address * 



The WRITE RANDOM WITH ZERO FILL operation is similar 
to FUNCTION 34: with the exception that a previously 
unallocated block is filled with zeros before the data 
is written. 



DIGITAL RESEARCH CP/M R 22 FIELD SOFTWARE CHANGE 

Copyright c 198<* Digital Research 

ID# CPM22-0001 PROGRAM: BDOS ISSUE DATE: 02/19/80 

Error Description; The following change affects only those CP/M systems which 
are using the optional blocking and deblocking algorithms listed in Appendix G of the 
CP/M Alteration Guide. If you are in doubt as to the applicability of this field change, 
please contact Digital Research or your CP/M distributor. 

Patch Procedure: Ensure you have an archive copy of the distributed 
MOVCPM.COM file. Make changes to a version of M0VCPM.COM by carefully following 
the steps shown below: M0VCPM.COM is loaded into memory using DDT and the 
changes are made using the Assemble (A) and Set (S) commands. After making the 
changes, return to the console command processor using the Go (G) command, and 
SAVE the altered memory image on disk. The memory image on tracks and 1 must 
also be updated. This can be accomplished by executing the new MOVCPM program, 
as described in the CP/M Alteration Guide, and integrating your customized I/O system. 

ddt movcpm.com 
DDT VERS 2.0 
NEXT PC 
2700 0100 
-alcd2 
1CD2 nop 
1CD3 nop 
1CD4 Ixi h,0 
1CD7 



-G0 

save 38 movcpm.com 

NOTE: This Field Software change is not installed in the CP/M version 2.2. It 
must be installed in all systems which use the deblocking algorithms listed in Appendix 
G of the CP/M Alteration Guide. 



PROGRAM ID: DOUBLE D BIOS (DDBIOS) * 

VERSION! CP/M 2.2 8" RELEASE 2A * 

# 

PRESENTED BY: JADE COMPUTER PRODUCTS * 

4901 W. ROSECRANS BLVD. * 

HAWTHORNE, CALIFORNIA * 

90250, U.S.A. * 



5 DECLARE CP/M 2.2 SYSTEM SIZE * 



0014 = 



CPM*NK EQU 



»0 



5 SYSTEM SIZE K BYTES. 



! DOUBLE D HARDWARE PARAMETER - SYSTEM PORT ADDRESS * 



0043 = 



D*PORT EQU 



043H 



; DOUBLE D PORT ADDRESS. 



! SELECT NUMBER OF DISK DRIVES USED # 



0002 = 



N*DRVS EQU 



; SELECT 1 TO 4 DRIVES. 



? DISK OPERATING SYSTEM ADDRESSES. * 



0400 
5000 
0000 



K*B EQU 
CPM*SZ EQU 
CPM*BS EQU 



1024 ; IK BYTE SIZE. 

CPM*NK * K*B ;TOP SYSTEM ADDRESS. 
CPM*SZ-(20#K*B> ;CP/M BIAS VALUE. 



0100 
3400 
3C00 
4A00 
C600 
FOOO 
0003 
0004 



TPA 


EQU 


0100H 


CCP 


EQU 


CPM*BS+3400H 


BDOS 


EQU 


CPM*BS+3C00H 


BIOS 


EQU 


CPM*BS+4A00H 


BIOS*R 


EQU 


1000H-BI0S 


BOOT 


EQU - 


OFOOOH 


IO*LOC 


EQU 


0003H 


DF*LOC 


EQU 


0004H 



; ADDRESS OF TPA. 

; ADDRESS OF CCF. 

? ADDRESS OF BDOS. 

; ADDRESS OF BIOS 

;DDT OFFSET 1000H LOAD. 

?BOOT PROM .JUMP TABLE. 

5 I/O BYTE LOCATION. 

; DRIVE ASSIGN LOCATION. 



; DOUBLE D SYSTEM PARAMETERS * 



0000 
0000 



IOBYTE EQU 
DF*DRV EQU 



OOOOOOOOB 




; INITIAL IOBYTE VALUE. 
; INITIAL DEFAULT DRV. 



0080 
0100 



SEC*SZ EQU 
FMT*SZ EQU 



0080H 
0100H 



; BYTES PER SECTOR. 
S FORMAT BUFF SIZE. 



5 DOUBLE D HARDWARE COMMANDS # 



0001 
000 1 
0003 
0000 
0002 



OC*SIN 


EQU 


0000000 IB 


; SWITCH 


DC*MBO 


EQU 


0000000 1 B 


; SELECT 


DC$MB1 


EQU 


0000001 IB 


; SELECT 


DCfSOT 


EQU 


OOOOOOOOB 


; SWITCH 


DC* I NT 


EQU 


0000001 OB 


; I ssuE 



DD BANK INTO SYSTEM. 
DOUBLE D BANK 0. 
DOUBLE D BANK 1. 
DD MEM OUT OF SYSTEM. 
DD ZSOA INTERRUPT. 



; DISK CONTROLLER MODULE LINKAGE <DCM - VER 2.2) * 
;■*•#*•####( DCM ADDRESSES DEFINED )##•*##•*•»•■«•####•»*■•*•»#-*### 



0370 
0380 
0300 
03A0 
03B1 



DD*CBT 
DDSBUF 
DDSFBF 
DDSDPB 
DD*DDF 



EQU 
EQU 
EQU 
EQU 
EQU 



0370H 


? COMMAND BLOCK 


( BANK 


0) . 


0380H 


; SECTOR BUFFER 


( BANK 


0). 


0300H 


5 FORMAT BUFFER 


( BANK 


1). 


03A0H 


? ID SEC DPB 


< BANK 


0). 


03B1H 


5 ID SEC FLAGS 


( BANK 


0). 



##•»■•»■###( DCM COMMANDS )###*•#######■*■*####•*###•*#####■»•*•*•*• 



0000 
0001 
0002 
0003 
0005 
0006 



DCSLOG EQU OOOH ; LOG ON DISKETTE. 

DC*RDS EQU 00 1H ; READ SECTOR. 

DC*WRS EQU 002H ; WRITE SECTOR. 

DC*FMT EQU 003H ; FORMAT TRACK. 

DC*LST EQU 005H 5LIST CHARACTER. 

DC*LCK EQU 006H ;LIST STATUS. 



5 ASSEMBLER DIRECTIVES * 



4A00 



ORG 



BIOS 



5 #####################################################* 
5 BIOS .JUMP VECTOR TABLE * 



4A00 
4A03 
4A06 
4A09 
4A0C 
4A0F 
4A12 
4A15 
4A18 
4A1B 
4A1E 
4A21 
4A24 
4A27 
4A2A 
4A2D 



C3364A 
C3424A 
C306F0 
C309F0 
C30CF0 
C3B04A 
C3AF4A 
C3AC4A 
C3D04A 
C3D54A 
C3F44A 
C3F94A 
C3FE4A 
C3044B 
C3244B 
C3C04A 



JMP 


INIT 


JMP 


WARM 


JMP 


CNS*CK 


JMP 


CNS*IN 


JMP 


CNS*OT 


JMP 


LIST 


JMP 


PUNCH 


JMP 


READER 


JMP 


HOME 


JMP 


SELDSK 


JMP 


SETTRK 


JMP 


SETSEC 


JMP 


SETDMA 


JMP 


DISKRD 


JMP 


DISKWR 


JMP 


LISTST 



COLD START ENTRY 
RELOAD CCP/BDOS 
GET CONSOLE STATUS- 
CONSOLE INPUT 
CONSOLE OUTPUT 
PRINTER OUTPUT 
PUNCH OUTPUT 
READER INPUT 
HOME SELECTED DRIVE 
SELECT DISK DRIVE 
SET TRACK NUMBER 
SET SECTOR NUMBER- 
SET TRANSFER ADDRESS- 
PERFORM DISK READ 
PERFORM DISK WRITE 
RETURN LIST STAT 



4A30 C3514B 
4A33 C3614B 



JMP 
JMP 



SECTRN 
FORMAT 



; TRANSLATE SECTOR 
? FORMAT A TRACK 



4A36 318000 
4A39 21964C 
4A3C CD4C4C 
4A3F C3574A 



4ASC 21CB4C 
4ASF CD4C4C 
4A92 76 



4A93 010800 



LXI 


SP , OOSOH 


LXI 


H,MSG*SO 


CALL 


MSG*OT 


JMP 


CPM*LO 



? COLD START ENTRY -- ISSUE SIGN ON MESSAGE * 

; ##*#*#«#***#*#«#####**#*####«■############*############ 

I NIT: LXI SP, OOSOH ; SET UP STACK AREA. 

SIGN ON MSG ADDR. 
ISSUE MESSAGE. 
LOAD CCP/BDOS. 

? WARM BOOT ENTRY - LOADS CCP/BDOS - INITIALIZES * 

;#**###*( SET UP FOR CCP/BDOS LOAD )■*######•«•######•«••»■### 



GET I/O BYTE VALUE. 
STORE I/O VALUE. 
GET DEFAULT DRIVE. 
CHECK LEGAL DRIVE. 
IF LEGAL, GO OK. 
SET DRIVE TO A. 
STORE IN IMAGE. 
SET UP STACK. 
INIT DEFAULT DRIVE. 
SELECT DISK. 
CP/M CCP ADDRESS. 
SET DMA ADDR. 
CCP 1ST SECTOR. 
SET SECTOR NMBR. 
CCP/BDOS TRACK. 
SET TRACK NUMBER. 



#•«•#*■■»•«■#( LOAD CCP/BDOS )##*####*##############■«•###«■### 



READ ONE SECTOR. 
SET FLAGS. 
EXIT IF ERROR. 
GET SECTOR NMBR. 
LAST SECTOR CHECK. 
GOTO ZERO PAGE SET. 
INCREMENT SECTOR. 
STORE NEXT SECTOR. 
GET SECTOR SIZE. 
GET TRANSFER ADDR. 
CALCULATE NEW ADDR. 
SET NEW ADDRESS. 
DO ANOTHER WARM READ. 



;-»###■*#■»•( READ ERROR DETECTED )##########«•##########«•## 



4A42 


3A0300 


WARM: 


LDA 


IO*LOC 


4A45 


329 14C 




STA 


10* IMG 


4A48 


3A0400 




LDA 


DF*LOC 


4A4B 


FE02 




CPI 


N*DRVS 


4A4D 


DA514A 




JC 


WRM*OK 


4A50 


AF 




XRA 


A 


4A51 


32924C 


WRM*OK: 


STA 


DF*IMG 


4A54 


318000 




LXI 


SP, OOSOH 


4A57 


3E00 


CPM*LD: 


MVI 


A,DF*DRV 


4A59 


32594C 




STA 


BT*DRV 


4A5C 


010034 




LXI 


B , CCP 


4A5F 


CDFE4A 




CALL 


SETDMA 


4A62 


0E02 




MVI 


C , 2 


4A64 


CDF94A 




CALL 


SETSEC 


4A67 


0E01 




MVI 


C,l 


4A69 


CDF44A 




CALL 


SETTRK 



4A6C 


CD044B W*READ: CALL 


DISKRD 


4A6F 


A7 


ANA 


A 


4A70 


C28C4A 


JNZ 


W*EROR 


4A73 


3A5B4C 


LDA 


BT*SEC 


4A76 


FE2D 


CPI 


45 


4A78 


CA934A 


■JZ 


W*ZRPG 


4A7B 


3C 


INR 


A 


4A7C 


325B4C 


STA 


BT*SEC 


4A7F 


1 1 8000 


LXI 


D,SEC*S'Z 


4A82 


2A604C 


LHLD 


BT*DMA 


4A85 


19 


DAD 


D 


4AS6 


22&04C 


SHLD 


BT*DMA 


4AS9 


C36C4A 


JMP 


W*READ 



W*EROR: LXI 
CALL 
HLT 



H,MSG*LE 
MSG*OT 



5 GET ERROR MESAAGE. 
; ISSUE MESSAGE. 
5 0R GOTO MONITOR 



;####*##( INITIALIZE SYSTEM PARAMETERS )#####-»■#•*###*■#*■(!- 
W*ZRPG: LXI B,8 ; BASE IMAGE SIZE. 



4A96 
4A99 
4A9C 
4A9F 
4AA2 



1 1 0000 
218E4C 
CD414C 
218000 
22604C 



LXI 


D , 


LXI 


H,BS*IMG 


CALL 


BLOCK 


LXI 


H , 0080H 


SHLD 


BT*DMA 



SBASE ADDRESS SET. 
5BASE IMAGE ADDR. 
; BLOCK MOVE ROUTINE. 
; DEFAULT SECTOR BUFF. 
"SET TRANSFER ADDRESS 



:•«•■«■#■«•##«•( JUMP TO CCP )##*###*###*###*################# 



4AA5 3A0400 
4AA8 4F 
4AA9 C30034 



LDA 


DFSLOC 


MOV 


C,A 


JMP 


CCP 



;get current dsk nmbr. 
;send to the ccp. 
sjump into ccp cp/m. 



; CONSOLE LINKAGE DEFINITIONS - BOOT PROM ADDRESSES # 



F006 
F009 
FOOC 



CNS$CK EQLI 
CNSSIN EQU 
CNSSOT EQU 



B00T+006H 
B00T+009H 
BOOT+OOCH 



5 CHECK CONSOLE INPUT. 
;READ CONSOLE INPUT. 
; CHARACTER TO CONSOLE. 



; READER AND PUNCH DRIVERS - USER SHOULD DEFINED * 



4AAC 3E1AC9 
4AAF C9 



READER: MVI 
PUNCH: RET 



A,CNTL*Z!RET 



; RETURN END OF FILE. 
5 NOT IMPLEMENTED. 



; PRINTER DRIVER AREA - DCM SERIAL PORT LINKAGE * 



4AB0 


79 


LIST: 


MOV 


A,C 


4AB1 


325D4C 




STA 


BT*CHR 


4AB4 


3E01 




MVI 


A,DC*SIN 


4AB6 


D343 




OUT 


D*PORT 


4AB8 


3E05 




MVI 


A,DC*LST 


4ABA 


CD8A4B 




CALL 


DSK*EX 


4ABD 


C3444B 




JMP 


DSK*OK 


4AC0 


3E01 


LISTST: 


MVI 


AtDC*SIN 


4AC2 


D343 




OUT 


D»PORT 


4AC4 


3E06 




MVI 


A,DC*LCK 


4AC6 


CDSA4B 




CALL 


DSK*EX 


4AC9 


CD444B 




CALL 


DSK*OK 


4ACC 


3A5F4C 




LDA 


BT*STS 


4ACF 


C9 




RET 





;list char to acum. 
? store list character. 
5l0ad switch mem cmnd. 
? issue hardware cmnd. 
;dcm list command. 
5call disk execute. 
; return to caller. 

?load switch mem cmnd. 
; issue hardware cmnd. 
?dcm list stat cmnd. 
;call disk execute. 
? switch dd mem out. 
,"load return status. 
; return to caller. 



? HOME - SET TRACK TO ZERO # 



4AD0 OEOO 
4AD2 C3F44A 



HOME: 



MVI 
JMP 



CO 
SETTRK 



?C REGISTER TO ZERO. 
; PERFORM SET TRACK. 



; SELECT DISK DRIVE - CHECK FOR LOGON * 



4AD* 
4ADS 



210000 
79 



SELDSK: 



LXI 
MOV 



H,0 
A,C 



,* ERROR RETURN CODE. 
SPUT DRIVE NMBR IN A. 



4AD9 


FE02 




CPI 


N$DRVS 


4ADB 


DO 




RNC 




4ADC 


32594C 




STA 


BT*DRV 


4ADF 


7B 




MOV 


A,E 


4AE0 


3264 4C 




STA 


LOG*RQ 


4AE3 


3A594C 


RETDSK: 


LDA 


BT*DRV 


4AE6 


6F 




MOV 


L,A 


4AE7 


2600 




MVI 


H,0 


4AE9 


29 




DAD 


H 


4AEA 


29 




DAD 


H 


4AEB 


29 




DAD 


H 


4AEC 


29 




DAD 


H 


4AED 


11E94C 




LXI 


D,DO*DPH 


4AF0 


19 




DAD 


D 


4AF1 


C3B54B 




..IMP 


LOG*ON 



CHECK IF LEGAL DRIVE. 
:N0 CARRY IF ILLEGAL. 

STORE DRIVE NUMBER. 
: CHECK IF LOG-ON REG. 
: STORE LOGON REGISTER. 
:GET DRIVE NUMBER. 
:L SET DISK NUMBER. 
iZERO H REGISTER. 
:#2. 
:#4. 
:*8. 

:*16 (SIZE OF HEADER). 
: DRIVE D*P*H. 
;HLSET DRIVE N DPH. 
:G0 CHECK LOG-ON. 



SET TRACK NUMBER * 



4AF4 79 


SETTRK: 


MOV 


A,C 


4AF5 325A4C 




STA 


BT*TRK 


4AFS C9 




RET 





;MOVE TRACK NUMBER. 
5SAVE TRACK NUMBER. 
? RETURN TO CALLER. 



SET SECTOR NUMBER * 



4AF9 79 


SETSEC: 


MOV 


A,C 


4AFA 325B4C 




STA 


BT*SEC 


4AFD C9 




RET 





5M0VE SECTOR NUMBER. 
;SAVE SECTOR NUMBER. 
; RETURN TO CALLER. 



SET MEMORY ADDRESS FOR DISK TRANSFER # 



4AFE 


60 


SETDMA: 


MOV 


H,B 


4AFF 


69 




MOV 


L,C 


4B00 


22604C 




SHLD 


BT*DMA 


4B03 


C9 




RET 





5high order move. 
;low order move. 
!save transfer address 
; return to caller. 



; READ A DISK SECTOR ROUTINE * 



4B04 


3E01 DI 


SKRD: MVI 


A,DC*SIN 


4B06 


D343 


OUT 


D*PORT 


4B08 


3E01 


MVI 


A,DC*RDS 


4B0A 


CD8A4B 


CALL 


DSK9EX 


4B0D 


C24A4B 


JNZ 


DSK*ER 


4B10 


2A604C 


LHLD 


BT*DMA 


4B13 


EB 


XCHG 




4B14 


1 8003 


LXI 


B,DD*BUF 


4B17 


2A4000 


LHLD 


DSADDR 


4B1A 


09 


DAD 


B 


4B1B 


018000 


LXI 


B.SECtSZ 


4B1E 


CD414C 


CALL 


BLOCK 


4B21 


C3444B 


JMP 


DSK*OK 



i SWITCH DD INTO SYSTEM. 
: ISSUE DD COMMAND. 
iREAD SECTOR COMMAND. 
: PERFORM OPERAT I ON . 
: ERROR EXIT. 
: LOAD USER BUF ADDRESS 
iMOVE HL TO DE. 
iLOAD BUFFER OFFSET. 
:LOAD DD WINDOW ADDR. 
:HL NOW SECTOR BUFFER. 
iLOAD SECTOR SIZE. 
! BLOCK MOVE ROUTINE. 
! NORMAL RETURN. 



; ####################################*##############■»■»{•# 



? WRITE A DISK SECTOR ROUTINE * 



4B24 


3E01 DI 


8KWR: MVI 


A,DC*SIN 


m 
t 


4B26 


D343 


OUT 


D*PORT 


M 

7 


4B28 


018000 


LXI 


B,SEC*SZ 


m 
7 


4B2B 


2A4000 


LHLD 


D4ADDR 


m 
7 


4B2E 


118003 


LXI 


D.DD*BUF 


m 
7 


4B31 


19 


DAD 


D 


m 
7 


4B32 


EB 


XCHG 




m 
7 


4B33 


2A604C 


LHLD 


BT*DMA 


? 


4B36 


CD414C 


CALL 


BLOCK 


a 
7 


4B39 


3E02 


MVI 


A,DC*WRS 


m 

7 


4B3B 


CD8A4B 


CALL 


DSK*EX 


5 


4B3E 


CA444B 


JZ 


DSK*QK 


7 


4B41 


C34A4B 


JMP 


DSK*ER 


7 



SWITCH DD INTO SYSTEM. 
ISSUE HARDWARE CMND. 
LOAD SECTOR SIZE. 
DD SYSTEM ADDRESS. 
DD BUFFER OFFSET. 
HL NOW DD BUF ADDR. 
DE NOW DD BUF ADDR. 
HL NOW USER BUF ADDR. 
BLOCK MOVE ROUTINE. 
LOAD WRITE SEC CMND. 
CALL DISK EXECUTIVE. 
JUMP IF WRITE OK. 
ERROR EXIT. 



; DISK READ/ WRITE EXITS * 



4B44 3E00 


DSK*OK: 


MVI 


A,DC*SOT 


4B46 D343 




OUT 


DSPORT 


4B48 AF 




XRA 


A 


4B49 C9 




RET 




4B4A 3E00 


DSK*ER: 


MVI 


A,DC*SQT 


4B4C D343 




OUT 


D*PORT 


4B4E 3EFF 




MVI 


A,0FFH 


4B50 C9 




RET 





; SWITCH DD OUT OF SYS. 
» ISSSUE HARDWARE CMND. 
5ZER0 A REGISTER. 
? NORMAL EXIT. 

; SWITCH DD OUT OF SYS. 
! ISSSUE HARDWARE CMND. 
5L0AD ERROR FLAGS. 
■ERROR EXIT. 



? TRANSLATE SECTOR NUMBER # 



4B51 


7A 


SECTRN: 


MOV 


A,D 


4B52 


B3 




ORA 


E 


4B53 


CA5C4B 




JZ 


NOTRAN 


4B56 


EB 




XCHG 




4B57 


09 




DAD 


B 


4B58 


6E 




MOV 


L,M 


4B59 


2600 




MVI 


H,0 


4B5B 


C9 




RET 




4B5C 


210100 


NOTRAN: 


LXI 


H, 1 


4B5F 


09 




DAD 


B 


4B60 


C9 




RET 





: TESTING TBL ADDR. 
:ADDR IN REG DE. 
i IF ZERO, NO TRANS. 
: (HL) NOW TRANS TBL. 

(HL) NOW TRANS SECTOR. 
:L IS TRANSLATED SEC. 
:HIGH ORDER BYTE ZERO. 
(RETURN TO CALLER, 
i SET HL TO ONE. 
:ADD SEC NMBR TO HL. 
(RETURN TO CALLER. 



! FORMAT A DISK TRACK ROUTINE # 



4B61 


3E01 FORMAT: MVI 


A,DC*SIN 


4B63 


D343 


OUT 


D*PORT 


4B65 


3E03 


MVI 


A,DC*MB1 


4B67 


D343 


OUT 


D*PORT 


4B69 


010001 


LXI 


B,FMT*SZ 


4B6C 


2A4000 


LHLD 


D*ADDR 


4B6F 


110003 


LXI 


D.DD*FBF 


4B72 


19 


DAD 


D 


4B73 


EB 


XCHG 





5 SWITCH DD INTO SYSTEM. 
; ISSUE HARDWARE CMND. 
J SELECT DD BANK 1. 
; ISSUE HARDWARE CMND. 
; FORMAT PROG SIZE. 
5DD SYSTEM ADDRESS. 
;DD FORMAT BUF OFFSET. 
;HL NOW DD FBUF ADDR. 
,"DE NOW DD FBUF ADDR. 



4B74 


2A604C 


4B77 


CD414C 


4B7A 


3E01 


4B7C 


D343 


4B7E 


3E03 


4BS0 


CB3A4B 


4B83 


CD444B 


4B86 


3A5F4C 


4B89 


C9 



LHLD 


BT$DMA 


CALL 


BLOCK 


MVI 


A.DCtMBO 


OUT 


D*PORT 


MVI 


A,DC*FMT 


CALL 


. DSK*EX 


CALL 


DSK*OK 


LDA 


BT*STS 


RET 





; format program addr. 
; block move routine. 
;reselect dd bank o. 
; issue to dd hardware. 
;load format trk cmnd. 
5call disk executive, 
j switch dd mem out. 
;load format status. 
; format exit. 



; DOUBLE D EXECUTION SUBROUTINE * 

;*#***#*< COMMAND BLOCK TO DOUBLE D AND EXEC )##*♦##### 



4BSA 


325S4C 


4BSD 


010700 


4B90 


1 1 7003 


4B93 


2A4000 


4B96 


19 


4B97 


EB 


4B9S 


21584C 


4B9B 


CD414C 


4B9E 


3E02 


4BA0 


D343 



DSK*EX: 



STA 


BTSCMD 


LXI 


B,7 


LXI 


D,DD*CBT 


LHLD 


D*ADDR 


DAD 


D 


XCHG 




LXI 


H,BT*CMD 


CALL 


BLOCK 


MVI 


A,DC*INT 


OUT 


D*PORT 



STORE DCM COMMAND. 
iNMBR BYTE TO MOVE. 

COMMAND BYTE OFFSET. 
:DD SYS ADDRESS. 
:HL NOW PTS CMND BLK. 
:NOW ADDR IN DE, 
:BIOS CMND BLOCK, 
i PERFORM BLOCK MOVE. 
ILOAD DD INTERRUPT. 
: ISSUE DD INTERRUPT. 



;#######!( WAIT FOR DOUBLE D HALT )##**###*#####•*##*##■** 



4BA2 


3A4200 


LDA 


D$HALT 


4BA5 


47 


MOV 


B,A 


4BA6 


DB43 


DSK*WT: IN 


D*PORT 


4BA8 


AO 


ANA 


B 


4BA9 


C2A64B 


JNZ 


DSK*WT 



!LOAD HALT BIT MASK. 

,-MASK IN B REGISTER. 

;read dd status. 

5test halt# flag. 

;test until halted. 



;#*##*##< GET DOUBLE D STATUS )*#*#######*######*###•*## 



4BAC 3E01 
4BAE D343 
4BB0 EB 
4BB1 7E 
4BB2 12 
4BB3 A7 
4BB4 C9 



MVI 


A,DC*SIN 


OUT 


D*PORT 


XCHG 




MOV 


A,M 


STAX 


D 


ANA 


A 


RET 





; SWITCH DD INTO SYS. 
? ISSUE HARDWARE CMND. 
; EXCHANGE SRC/DSTN. 
; STATUS INTO A REG. 
; STORE STATUS BYTE. 
;TEST FOR ERRORS. 
; RETURN TO CALLER. 



; LOG-ON - SET DISK PARAMETER BLOCK * 

;###**##( CHECK IF LOG-ON REQUESTED )##*#*■**#•*###**#*## 



4BB5 3A644C 
4BB8 E601 
4BBA C2444B 



LOG*ON: LDA 
AN I 
JNZ 



LOG*RQ 
00 1H 
DSK*OK 



; CHECK LOG REQUEST. 
;LOG ON BIT TEST. 
; RETURN, NO LOG-ON. 



;*####-»#( READ IDENTITY SECTOR )#*####■»•■»•«•**»■»•#•*###*#**-# 



4BBD 22&24C 
4BC0 3E01 
4BC2 D343 



SHLD 


DT*PTR 


MVI 


A,DCSSIN 


OUT 


D*PORT 



; STORE DRV TBL PNTR. 
; SWITCH DD INTO SYS. 
; ISSUE HARDWARE CMND. 



4BC4 3E00 
4BC6 CD8A4B 
4BC9 CAD24B 
4BCC 210000 
4BCF C34A4B 



MVI 


A, DC$L0G 


CALL 


DSK*EX 


JZ 


L0G$CK 


LXI 


H,0 


JMP 


DSK*ER 



?l0ad dcm log-on cmnd. 
; perform disk op. 
?g0 to logon error. 
; error, bad log on. 
;bios exit. 



#**■«•###( CHECK FOR JADE ID ) #-*######-8-#####-*-h-####»##### 



4BD2 


118003 


LOG*CK: 


LXI 


D,DD*BUF 


4BD5 


2A4000 




LHLD 


D*ADDR 


4BDS 


19 




DAD 


D 


4BD9 


11E14C 




LXI 


D, JADE ID 


4BDC 


0608 




MVI 


B, ID4SZE 


4BDE 


1A13 


LOG* ID: 


LDAX 


D! INX D 


4BE0 


BE23 




CMP 


Mf INX H 


4BE2 


C20F4C 




JNZ 


LG3740 


4BE5 


05 




DCR 


B 


4BE6 


C2DE4B 




JNZ 


LOG* ID 



DD BUFFER OFFSET. 
!DD SYS ADDRESS. 

HL NOW PNTS BUFFER. 
IDE PNTS BIOS ID. 

SET LABEL SIZE. 
:GET LABEL CHARACTER. 
:DOES ID SECTOR MATCH. 
: ASSUME DISKETTE 3740. 
: DECREMENT COUNT. 
! CHECK IF ANOTHER CHR. 



;#######< DISKETTE CONTAINS ID >*#####■*#######*■«•■**#*#*# 



4BE9 


CD2E4C 


wMLa L~ 


TRNONE 


4BEC 


CD364C 


CALL 


DPB*AD 


4BEF 


01A003 


LXI 


B,DD*DPB 


4BF2 


2A4000 


LHLD 


D*ADDR 


4BF5 


09 


DAD 


B 


4BF6 


010F00 


LXI 


B,DPB*SZ 


4BF9 


CD414C 


CALL 


BLOCK 


4BFC 


11B103 


LXI 


D,DD*DDF 


4BFF 


2A4000 


LHLD 


D*ADDR 


4C02 


19 


DAD 


D 


4C03 


7E 


MOV 


A,M 


4C04 


E604 


AN I 


04H 


4C06 


CC244C 


CZ 


TR3740 


4C09 


2A624C 


LHLD 


DT*PTR 


4C0C 


C3444B 


JMP 


DSK*OK 






;##■»#••*■«-■«■( ASS 


UME 3740 Dl: 


4C0F 


CD244C 


LG3740: CALL 


TR3740 


4C12 


CD364C 


CALL 


DPB*AD 


4C15 


1 OFOO 


LXI 


B,DPB*SZ 


4C18 


217F4C 


LXI 


H,SD*PBK 


4C1B 


CD4 1 4C 


CALL 


BLOCK 


4C1E 


2A624C 


LHLD 


DT*PTR 


4C21 


C3444B 


JMP 


DSK*OK 



; ASSUME DDENS. 

?GET DPB ADDR IN DE. 

SDPB ADDR OFFSET. 

;DD SYSTEM ADDRESS. 

;HL NOW AT ID DPB. 

SDPB SIZE IN BYTES. 

?MOVE INTO DPB. 

; ID DTA DNS OFFSET. 

5DD SYSTEM ADDR. 

5HL POINTS FLAGS. 

5L0AD FLAGS. 

J TEST DATA DENSITY. 

; IF USE 3740 TRN. 

; RELOAD POINTER. 

5EXIT BIOS JUMP. 

) #########*############# 

?SET SECTOR TRANSLATE. 
?SET REGISTER DE. 
;DPB SIZE IN BYTES. 
; ADDRESS OF BLK IMAGE. 
?MOVE INTO DPB. 
; RELOAD POINTER. 
5EXIT BIOS JUMP. 



;#######< SET 3740 SECTOR TRANSLATION )#*##*#*####*•«•### 



4C24 


11654C 


TR3740: 


LXI 


D.SDTRAN 


4C27 


2A624C 




LHLD 


DT*PTR 


4C2A 


73 




MOV 


M.E 


4C2B 


23 




INX 


H 


4C2C 


72 




MOV 


M,D 


4C2D 


C9 




RET 





; SECTOR TRAN TBL ADDR. 

5ADDR DISK PARA HDER. 

SLOW ORDER ADDR. 

? POINT NEXT BYTE. 

5HIGH ORDER ADDR. 

; RETURN TO LOG USER. 



;*••*#####( SET NO SECTOR TRANSLATION )#*####*###*#***■### 



4C2E AF 


TRNONE: 


XRA 


A 


4C2F 2A624C 




LHLD 


DT*PTR 



,'ZERO A REGISTER. 
5ADDR OF PARA HDER. 



A-C-l 


2 77 


4CC- 


3 23 


4c: 


4 77 


4CS 


5 C? 



MOV 


M, A 


I NX 


H 


MOV 


M, A 


RET 





ZERO LOW ORDER ADDR. 
NEXT BYTE. 
ZERO HIGH BYTE. 
RETURN TO LOG USER. 



;■»--&■»####( GET DRIVE PARA BLK ADDR )#########•*###*##*##* 



4C36 


2A6 


24 C 


DPBSAD: 


LHLD 


DT*PTR 


4C39 


1 1 OAOO 




LXI 


D, 10 


4C3C 


19 






DAD 


D 


4C3D 


5E 






MOV 


E,M 


4C3E 


Z.-Z* 






INX 


H 


4C3F 


56 






MOV 


D,M 


4C40 


C9 






RET 





;addr disk para hder. 
;dpb tbl pntr offset. 
;now at dpb pntr. 
5l0w order addr. 
;next byte. 
;high order addr. 
; return to log user. 



BLOCK MOVE SUBROUTINE - ZSO LDIR WILL FUNCTION HERE * 



4C41 7E23 
4C43 1213 
4C45 0B78B1 
4C4S C2414CC9 



BLOCK: MOV A,M! INX H 

STAX D! INX D 

DCX B! MOV A,B! OR A C 

•JNZ BLOCK ! RET 



;GET EACH BYTE. 
5 STORE EACH BYTE. 
;DEC LENGTH (MAX 64K>. 
5 FINISH BLOCK AND RET. 



; MESSAGE DISPLAY ROUTINE - HL REG POINTS TO STRING * 



4C4C 


7E 


MSG*OT: 


MOV 


A,M 




4C4D 


FE24CS 




CPI 


EOM! 


RZ 


4C50 


4FCD0CFO 




MOV 


C,A! CALL 


CNS*OT 


4C54 


23C34C4C 




INX 


H ! JMP 


MSG*OT 



5L0AD CHARACTER/BYTE. 
;EXIT IF TERMINATOR. 
; D I SPLAY CHARACTER . 
; REPEAT FOR NEXT BYTE. 



; DOUBLE D - DCM COMMAND BLOCK BUFFER * 



4C58 00 


BT*CMD 


• DB 





;dcm command. 


4C59 00 


BT*DRV 


• DB 





; DRIVE NUMBER. 


4C5A 00 


BT*TRK 


: DB 





; TRACK NUMBER. 


4C5B 00 


BT*SEC 


• DB 





; SECTOR NUMBER. 


4C5C 00 


BT*SPO 


■ DB 





"SPARE BYTE 0. 


4C5D 00 


BT*CHR 


• DB 


o 


?LIST CHARACTER 


4C5E 00 


BT*MOD- 


■ DB 


00000000B 


• MODE CONTROLS . 


4C5F 00 


BT*STS 


DB 


o 


5 COMMAND STATUS 



; BIOS VARIABLE STORAGE * 



4C60 0000 
4C62 0000 
4C64 00 



BT*DMA: DW 
DT*PTR: DW 
LOG*RQ : DB 



; SYSTEM TRANSFER ADDR. 
; DRIVE TABLE POINTER. 
SLOG ON REQUEST REG. 



DOUBLE D - MEMORY ASSIGNMENTS (40-4F HEX) * 



0040 = 
0042 = 



D*ADDR EQU 0040H 
D*HALT EQU 0042H 



;DD SYSTEM WINDOW ADDR POINTER. 
;DD HALT STATUS MASK LOCATION. 



; 3740 FORMAT PARAMETERS #***##** CP/M SINGLE DENSITY # 



;##*#**#< SINGLE DENSITY CP/M SECTORING >■*■*######**###*■ 



4C65 01070D1319SDTRAN! DB 
4C6F 090F 150208 DB 
4C79 121S040A10 DB 



O 1 H , 07H , ODH , 1 3H , 1 9H , 05H , OBH , 1 1 H , 1 7H , 03H 
09H, OFH, 15H, 02H, 08H, OEH, 14H, 1AH, 06H, OCH 
1 2H , 1 SH > 04H , OAH , 1 OH , 1 6H 



;***##*#( DEFAULT DISK PARAMETER BLOCK >***#**•#•*##*■«•#*••* 

; SECTORS PER TRACK. 
; BLOCK SHIFT FACTOR. 
,* BLOCK MASK. 
5NULL MASK. 
5 DISK SIZE - 1. 
? DIRECTORY MAX. 
11000000B ; ALLOC 0. 
; ALLOC 1. 
; CHECK SIZE. 
? TRACK OFFSET. 



4C7F 


1A00 S 


D*PBK: DW 


26 


4C81 


03 


DB 




4C82 


07 


DB 


7 


4C83 


00 


DB 





4C84 


F200 


DW 


24; 


4C86 


3F00 


DW 


63 


4C88 


CO 


DB 


IK 


4C89 


00 


DB 





4C8A 


1000 


DW 


16 


4C8C 


0200 


DW 


2 



; ZERO PAGE IMAGE - BLOCK MOVED TO BASE PAGE * 



4C8E 


C3034A 


BS*IMG: 


JMP 


BI0S+03H 


4C91 


00 


IO*IMG: 


DB 


IOBYTE 


4C92 


00 


DF*IMG: 


DB 


DF*DRV 


4C93 


C3063C 




JMP 


BD0S+06H 



5WARM BOOT VECTOR. 
5 1/0 BYTE IMAGE. 
; DEFAULT DRIVE IMG. 
5BD0S CALL VECTOR. 



? MESSAGES * 



4C96 ODOAODOA MSG*SO: DB 

4C9A 4A4 1444520 DB 

4CB2 3230 DB 

4CB4 4B2043502F DB 

4CCB 0D0A434350MSG*LE: DB 



OOOA 
OOOD 
0024 
001 A 



LF EQU 

CR EQU 

EOM EQU 

CNTL$Z EQU 



CR,LF,CR,LF 

-.JADE COMPUTER PRODUCTS"' , CR, LF 
"0" + CPM*NK / 10* -"0" + CPM*NK MOD 10 
"K CP/M 2.2 DDBI0S2",CR,LF,CR,LF,E0M 

CR , LF , - CCP/BDOS LOAD ERROR " , EOM 



00 AH 
OODH 
■- $ •- 

01 AH 



; ASCI I LINE FEED. 
5CARRAIGE RETURN. 
?END OF STRING. 
;CONTROL-Z (EOF). 



; ID LABEL DEFINITIONS * 



4CE1 4A6 1646520 JADE ID: DB 'JADE DD " 
0008 = ID*SZE EQU *- JADE ID 



;ID LABEL. 
? LABEL SIZE. 



; DRIVE PARAMETER HEADER AREA # 



4CE9 


0000 D0*DPH: 


DW 


; 


4CEB 


0000 


DW 


; 


4CED 


0000 


DW 


o ; 


4CEF 


0000 


DW 


; 


4CF1 


004E 


DW 


DIR*BF ; 


4CF3 


S04E 


DW 


DO$DPB ; 


4CF5 


B04E 


DW 


DO*CHK ; 


4CF7 


SF4E 


DW 


D04ALL 5 






IF 


<1-N*DRVS) SHR 15 


4CF9 


00000000000 1 $DPH s 


DW 


, ,0,0 


4D01 


004ED04E 


DW 


DIR*BF,D1*DPB 


4D05 


004FDF4E 


DW 
END IF 


D1*CHK,D1*ALL 






IF 


C2-N*DRVS> SHR 15 




D2*DFH: 


DW 


, , 7 






DW 


DIR*BF,D2*DPB 






DW 


D2*CHK,D2*ALL 






END IF 








IF 


(3-N*DRVS) SHR 15 




D3*DPH: 


DW 


, , , 






DW 


DIR*BF,D3*DPB 






DW 


D3*CHK,D3$ALL 






END IF 





SECTOR IRAN TBL. 

SCRATCH AREA. 

SCRATCH AREA. 
SCRATCH AREA. 
DIRECTORY BUFFER. 
DRIVE PARAM BLK. 
DRIVE CHANGE BLK. 
DRIVE ALLOCATION. 



; TEST SIGN BIT. 



5 BIGS PROGRAM AREA REMAINING * 



4E00 
OOF 7 



4D09 



BIGS*U 


EQU 


BIOS + 


K*B 


BIGS*F 


EQU 


BIOS*U 


- * 




IF 


BIOS*F 


SHR 15 


ERROR 


EQU 
END IF 


1/0 




F*AREA: 


DS 


BI0S9F 





; BEG IN SCRATCH AREA. 
? NUMBER OF BYTES FREE,. 

;TEST PROG OVERFLOW. 
; GENERATE ERROR. 



;USE UP PROG AREA. 



; DIRECTORY BUFFER AREA - BEGINNING OF SCRATCH AREA * 



4E00 



DIR«BF: DS 



SECSSZ 



; DRIVE TABLE ENTRY - SIZES # 



OOOF 
0021 
0020 



DPB*SZ EQU 
ALL*SZ EQU 
CHK*SZ EQU 



15 



; PARAMETER BLOCK SIZE. 
; ALLOCATION INFO SIZE,, 
; CHANGED DISK SCRATCH., 



; DRIVE TABLES - SCRATCH AREAS # 



4E80 
4E8F 



D0*DPB: DS 
DO* ALL: DS 



DPB$SZ 
ALLf>SZ 



?DISK PARAMETER BLOCK. 
HDISK ALLOCATION INFO., 



4EB0 



4ED0 
4EDF 
4F00 



DO*CHK." 


DS 


CHK*SZ 






IF 


( 1 -N*DRVS ) 


SHR 


D1*DPB: 


DS 


DPB*SZ 




D1*ALL: 


DS 


ALLSSZ 




D1*CHK: 


DS 
END.IF 


CHK*SZ 






IF 


( 2~N*DRVS ) 


SHR 


D2*DPB: 


DS 


DPB*SZ 




D2*ALL: 


DS 


ALL*SZ 




D2*CHK: 


DS 
END IF 


CHK*SZ 






IF 


( 3~N*0RVS ) 


SHR 


D3$DPB: 


DS 


DPB*SZ 




D3$ALL: 


DS 


ALL*SZ 




D3*CHK! 


DS 
END I F 


CHK*SZ 





;DISK CHANGED SCRATCH. 



5DISK PARAMETER BLOCK. 
;DISK ALLOCATION INFO. 
5 DISK CHANGED SCRATCH. 



SDISK PARAMETER BLOCK. 
SDISK ALLOCATION INFO. 
SDISK CHANGED SCRATCH. 



5 DISK PARAMETER BLOCK. 
5 DISK ALLOCATION INFO. 
SDISK CHANGED SCRATCH. 



4F20 



END 



DBSLDR 
ADDR CODE 



SD SYSTEMS ZSO ASSEMBLER PAGE OOOl 



STMT SOURCE STATEMENT 



000 i 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 



NAME DBSLDR 

# 
PROGRAM ID: DDBIOS LOADER * 

VERSION: 2.2 RELEASE 2 * 

PROPERTY OF: JADE COMPUTER PRODUCTS * 

4901 W. ROSECRANS BLVD. * 

HAWTHORNE, CALIFORNIA * 

90250 7 U.S.A. * 

THE BIOS LOADER IS READ INTO THE DCM SECTOR BUFFER * 
AFTER DCM HAS INITIALIZED. THE BIOS LOADER PROGRAM 
IS THEN EXECUTED WHICH READS THE DDBIOS MODULE 
INTO BANK 1. THE COMMAND BLOCK (IN DCM) IS SET TO 
INDICATE DDBIOS MODULE SIZE AND THE SYSTEM LOAD 
ADDRESS. THE BIOS LOADER PROGRAM IS GENERATED BY 
M0VCPM.COM AS THE COLD START LOADER (900-97F HEX). 
THIS MODULE IS PROVIDED FOR REFERENCE PURPOSES. 

THE DDBIOS LOADER IS COMPATABLE WITH REV B AND C * 
DOUBLE D CONTROLLER BOARDS. IT IS COMPATABLE WITH * 
FD 179 1-01 / FD 1793 -01. IT WILL ALSO FUNCTION WITH * 
THE CURRENT FD179X-02 SERIES. * 



DBSLDR ™ JADE 
ADDR CODE 



DOUBLE D - CP/M 
STMT SOURCE i 



STATEMENT 



SD SYSTEMS ZSO ASSEMBLER PAGE 0002 



>0000 
>0000 
>0004 
>0004 
>0006 
>0007 
>0010 
>0040 
>0080 



>0088 
>009C 



>0014 
>0400 
>5000 
>0600 
>4A00 



>1000 
>0400 
>1400 
>1370 
>1377 
>1378. 
>137A 
>1380 



>0004 
>0008 
>000B 



0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 

0061 

0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0073 

0079 

0080 

0081 

0082 

0083 

0084 



; CONTROLLER PORT ASSIGNMENTS # 

BL*STS EQU OOOH 5 BOARD STATUS 

BLSCTL EQU OOOH ; BOARD CONTROLS 

WDSCMD EQU 004H ; 179X -02 COMMAND REGISTER 

WBSSTS EQU 004H ; 179X-02 STATUS REGISTER 

WD*SEC EQU 006H ; 179X-02 SECTOR REG I STOR 

WD*DTA EQU 007H 5 179X--02 DATA REGISTER 

XPSMTG EQU 01 OH ; MOTOR TIME OUT 

XP*MTX EQU 040H ; MOTOR TIME EXTEND 

XP*DSH EQU 080H ? DATA SYNC HOLD 

5 179X-02 COMMAND AND MASK. * 



DC*RDS 
DM*RER 



EQU 
EQU 



10001000B 
10011100B 



;READ SECTOR. 

5 READ ERROR MASK. 



? SYSTEM ASSIGNMENTS # 



NMBR*K EQU 20 

LN0*1K EQU 1024 

CPM*SZ EQU NMBR$K#LNG*1K 

BIO'S*S EQU LNG*lK#3/2 

BIOS*A EQU CPM*SZ~BIGS$S 



? SYSTEM SIZE IN K. 
; TOTAL BYTES IN IK., 
! TOTAL SYSTEM BYTES. 
SBIOS ALLOCATED SIZE. 
SBIOS LOAD ADDRESS., 



! INTERNAL MEMORY ASSIGNMENTS * 



BANK*0 EQU 1000H 

BANK*L EQU 0400H 

BANK*1 EQU BANK*0+BANK*L 

IOSBLK EQU BANKS0+0370H 

CB*STS EQU I0*BLK+0007H 

CW*LAD EQU I0*BLK+0008H 

CW*LNG EQU I0*BLK+000AH 

SECtBF EQU BANK*0+0380H 



; LOWER BANK ADDRESS. 
! IK BANK LENGTH. 
SUPPER BANK ADDRESS. 
5 1/0 BLOCK ADDRESS. 
5 COMMAND STATUS BYTE. 
5 BIOS LOAD ADDR LOC. 
;BIOS LOAD LENGTH LOC, 
; SECTOR BUFFER AREA. 



■ BIOS PROGRAM LINKAGE. # 

;###############################-».#####.j(.#######.H..|{.## + ;.# ## 



SEC*BG EQU 
SEC*NM EQU 
SEC*EX EQU 



4 ; FIRST BIOS SECTOR. 

8 ; NUMBER OF SECTORS. 

SEC*BG-i-SEC*NM--i ; LAST BIOS SECTOR. 



; #########################################fi.####|(.>#i:.jj.## 



DBSLDR - JADE 
ADDR CODE 



DOUBLE D - CP/M 2.2 

STMT SOURCE STATEMENT 



SD SYSTEMS ZSO ASSEMBLER PAGE 0003 



>13S0 



1383 
1386 
1389 
138C 



138F 
1393 
1396 
1397 
1399 
139B 
139C 



139E 
13A0 
13A2 
13A3 
13A4 
13A5 



210004 
227A13 
2 1004 A 
227813 
210014 



FD21A81: 

3AC413 

A9 

D306 

3E88 

A9 

D304 



DB80 

DB07 

A9 

77 

23 

C39E13 



0086 
0087 
0088 
0089 
0090 
009.1 
0092 
0093 
0094 
0095 
0096 
0097 
0098 
0099 
0100 
0101 
0102 
0103 
0104 
0105 
0106 
0107 
1 08 
0109 
0110 
0111 
0112 
0113 
0114 
0115 
0116 
0117 
0118 
0119 
0120 
0121 
0122 
0123 
0124 
0125 
0126 



5 ####•#*######&######### ■&###&#############" 

? ASSEMBLER DIRECTIVES # 



PSECT 
ORG 



ABS 

SEC*BF 



; ABSOLUTE ADDRESS I NG . 
; PROGRAM START POINT. 



; INITIALIZE BIOS READ OPERATION # 



BEGIN! 



LD 
LD 
LD 
LD 
LD 



HL,LNG$1K 
< CW*LNG ) , HL 
HL,BIOS*A 
( CW*LAD ) , HL 
HL,BANK*1 



?BIOS LOAD LENGTH. 
?LOAD LENGTH SET. 
iBIGS SYSTEM ADDR. 
5L0AD ADDRESS SET. 
;BIOS LOAD POINT. 



? SET-UP FOR EACH READ SECTOR COMMAND * 



RD*SECs LD IY,RD*TST 

LD A, (SECTOR) 

XOR C 

OUT < WD*SEC ) , A 

LD A.DC4RDS 

XOR C 

OUT ( WD*CMD ) , A 



?SET NMI VECTOR. 

? FIRST BIOS SECTOR. 

5 INVERT (1791-01). 

;SET 179X-02 SEC REG. 

5READ SECTOR CMND. 

; INVERT (1791-01). 

? ISSUE 179X-02 COMMAND. 



? READ SECTOR OPERATION # 



RD*BYT: IN 
IN 
XOR 
LD 
INC 
JP 



A, <XP*DSH> 
A, (WD*DTA) 

C 

(HL),A 
HL 
RD$BYT 



5WAIT FOR DATA. 
S INPUT INV DATA. 
5 INVERT (1791-01). 
5 STORE DCM BYTE. 
5 INCREMENT POINTER. 
; REPEAT OPERATION. 



; #####################################■&############### 



DBSLDR 
ADDR 



- JADE 
CODE 



DOUBLE D 
STMT « 



•- CP/M 2.2 
lOLIRCE STATEMENT 



SD SYSTEMS Z80 ASSEMBLER PAGE 0004 



13AS 
ISA A 
13AC 
13AF 
13B1 
13B3 
13B4 
13B7 



E69C 

200D 

3AC413 

FEOB 

280F 

3C 

32C413 

18D6 



13B9 32771; 



13BC 


AF 


13BD 


D300 


13BF 


DB10 


13C1 


76 



1 3C3 76 



13C4 04 



0128 

1 29 

1 30 
0131 
0132 
0133 
0134 
0135 
0136 
0137 
0138 
0139 
0140 
0141 
0142 
0143 
0144 
0145 
0146 
0147 
0148 
0149 
0150 
0151 
0152 
0153 
0154 
0155 
0156 
0157 
0158 
0159 
0160 
0161 
0162 
0163 
0164 
0165 



; CHECK READ SECTOR STATUS, REPEAT UNTIL BIOS LOADED * 



RD*TST: AND DMSRER 

•JR NZ , ERRORS 

LD A, (SECTOR) 

CP SEC*EX 

•JR Z, FINISH 

INC A 

LD (SECTOR), A 

JR RDSSEC 



;test for errors. 
; error detected. 
;get sector nmbr. 
5 check if last sec. 
;g0 if finished. 
? increment. 
; store sector number, 
j read next sector. 



? READ ERROR HAS BEEN DETECTED * 



ERRORS: LD 
XOR 
OUT 
IN 
HALT 



<CB*STS),A 

A 

( BL*CTL ) , A 

A, (XP*MTO) 



; DISPLAY ERROR STATUS. 
;ZERO A REGISTER. 
; DESELECT DRIVE. 
; MOTOR OFF! 
? TERMINATE. 



; BIOS SECTOR HAVE BEEN LOADED * 



FINISH: EI 

HALT 



; ENABLE I NTERRUPTS . 
; SHUTDOWN BOARD. 



! SECTOR NUMBER STORAGE * 



SECTOR: DEFB SEC*BG 



; SECTOR COUNTER. 



END 



; ft- ft- ft ft- ft- -ft ft- * ft- ft- ft- ft- ft ft- ft- * ft- ft ft- -ft -ft ft ft ft ft- ft ft- ft- ft- ft- * ft ft ft ft ft- ft ft- ft ft- ft ft ft -ft ft ft ft ft ft ft ft ft ft ft 

PROGRAM ID: DOUBLED D BOOTSTRAP' (DDBOOT) ft 

ft 

ft ft ft ft ft ■«• ft ft ft ft ft- ft ft ft- ft ft -ft ft * ft ft- ft ft ft ft- ft ft- ft- ft ft- ft- ft- ft ft- ft ft # «• ft- ft ft- ft ft ft ft- * ft ft ft ft- ft ft- ft ft 

ft 

VERSION: CP/M 2.2 RELEASE 2B * 

BOOT IN 2708: P/N SFC-58001200E ft 

h 

ftftftftftftftft-ftftftftftft-*ft-ftftft-ft-ft-ftft-ft-ft-ftftftftftft-ftftftft-ft-ftftftftft-ft--ft 

ft 

DISTRIBUTOR: JADE COMPUTER PRODUCTS ft 

4901 W. ROSECRANS BLVD. # 
HAWTHORNE, CALIFORNIA # 

90250, U.S.A. * 

ft 
; ft-ftftftftftftft-ftftftftft-ftftftftftftftft##ftft-ft-ftftftftftftftftftftft#ft-ftft 



; #################################*#########•»•»###«•##■»«•# 
? THE DOUBLE D BOOTSTRAP PROGRAM (DDBOOT) IS USED TO ft 
; INITIATE THE SYSTEM TRACKS LOAD SEQUENCE FROM DRIVE * 
; A (OR 0) AND TO PROVIDE CONSOLE I/O SUBROUTINES FOR ft 
THE DISK OPERATING SYSTEM (CP/M). THIS PROM SHOULD ft 
BE LOCATED AT FOOO HEX. THE SOURCE CODE FOR DDBOOT ft 
CAN BE ASSEMBLED WITH DIGITAL RESEARCH ASSEMBLER * 
ASM.COM. MACHINE CODE IS 80S0/S0S5/ZS0 COMPATABLE ft 
; ft-ftftft#ftft«ftftftftftft-ftftftft-ft-ftftftftft-ftft-ftft-ft#ftftft-ftftft-ftft-ftftftftftftftftft 



; DDBOOT INJECTION MODULE IS COMMAND COMPATABLE WITH * 
; THE FOLLOWING WESTERN DIGITAL CONTROLLER CHIPS, ft 
; DOUBLE D USER SWITCH ( UO OR RO) MUST BE SET TO ft 
5 INDICATE THE CONTROLLER CHIP DATA BUS POLARITY, ft 
; ft ft- ft- ft ft- ft- ft ft ft- ft- ft ft- ft •& ft ft- ft ft ft- ft- ft ft ft ft ft ft ft ft- ft- ft ft ft- # ft ft ft- ft- ft ft- «■ -ft ft ft ft- ft- ft- ft- -a- ft ft » -s- ft ft 
; CONTROLLER I'C USER SWO # 



; FD1791 02 (0.1.) CLOSED # 

. FD 1793-02 (01) OPENED # 

? FD1795 02 CLOSED * 

; FLU 797-02 OPENED * 

; * -K- ft- ft ft -S- -S- ft- ft- ft -ft ft ft ft ft ft ft ft -f t ft ft ft -ft ft ft- ft- ft- ft ft ft ft ft ft ft ft ft ft ft ft- ft ft- ft ft ft ft- ft- ft ft ft- ft ft ft ft ft 

; THE FD 1795-02 AND FD1797--02 PROVIDE ENHANCED SINGLE ft 
5 DENSITY PERFORMANCE I'M THAT THESE CHIPS ARE FULLY ft 
; COMPATABLE WITH FD 177 1-01 3740 FORMATS. ft 

; .B. -p. .j;. .# # ■%■ -%■ M- ft- ft ft ft ft ft ft ft ft ft -ft -ft ft ft ft ft ft- ft- ft ft ft ft ft ft- ft- ft ft- ft ft ft ft ft ft ft ft ft ft- ft- ft ft ft- ft -ft ft ft ft 



; ft -a- ft ft ■» ft ft ft ft ft ft ft ft ft- ft ft ft ft- ft- ft- ft ft ft ft ft- ft ft ft » ft -ft ft ft- -a- ft- ft- ft ft- ft- ft- ft -ft ft ft- ft ft ft- ft- ft ft ft- ft ft ft- 
? CBIOS SCRATCH ftftftftftft SYSTEM MEMORY ALLOCATION ft 

; ■» ft- K- ft- ft ft ft ft ft- ft- ft- ft- ft ft ft- ft- -ft- ft- ft ft ft ft ft- ft ft- # ft ft ft- ft- ft ft ft- ft- ft ft- ft ft- ft ft ft ft ft ft ft- ft- ft- ft ft ■» ft ft- ft ft 
; ADDRESS NAME FUNCTION # 

; 0040-41 D^ADDR ADDRESS POINTER TO DOUBLE D # 
; 0042 DAMASK STATUS PORT HALT BIT MASK ft 

; 0043 D$TEMP TEMPORARY, INSERT DISK MSG * 



" M Li I j J: F .1. C A 7 1 N M A Y B E N E !;::. D E i j ., I hi 1 S PR M F : R D V I D E S 'I " I- ! E ft 

; CONSOLE STATUS. I Ml 'SIS AMD OUTPUT SUDEOU "I" IMPS. MANY ft 

; END USER SYSTEMS REQUIRE UART / USAR"I" AND BAUD RATE * 

" GENERATOR INITIAL. I /AT I ON. THESE ROUTINES NAY MEED ft 

" TO BE PATCHED TO PROVIDE FOR PROPER CONSOLE LINKAGE ft 

5 PATCHING NAY ALSO BE DONE POR SOME DISK DRIVES. ft 

; ft ft ft ft ft ft ft ■*■ ft ft « ft ft * ft * <■ ft ft ft # ft ft ft * ft ft ft ft * ft ft *• ft s ft * ft ft * ft ft « * ft h- ft *■ « ft ft & ft ft 

; PROM LOCATIONS THAT MAY NEED PATCHING * 

; -x # ft ft ft ft ft ft ft ft ft ft ft ft ft ft H- ft ft ft ft ft ft ft ft ft ft H- ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft 

• SYSTEM INITIALIZATION - UART/USART , BAUD RATE, AND # 
; AND POWER ON JUMP CIRCUITRY MAY REQUIRE SOFTWARE ft 
; INITIALIZATION. A PATCH AREA IS RESERVED AT "INIT" # 
; ft ft ft ft # ft # * ft ft ft ft * ft ft ft ft •» ft ft ft ft ft ft ft * ft ft ft ft ft ft ft ft ft ft ft ■«■ ft ft # ft ft ft ft -x- ft ft ft ft ft ft ft * 
; CONSOLE STATUS CHECK ■■■■ RETURNS KEYBOARD STATUS TO ft 
; CP/M OPERATING SYSTEM. THIS SUBROUTINE MUST USE ft 
; THE CORRECT PORT ADDRESS AND TEST PROPER STATUS BIT. ft 
; ROUTINE IS LABELED "CNS*CK" AMD CONTAINS PATCH AREA. ft 
; ftftftftft#ftftftftftftftftftftftftft#ftftftftftftftftftftftftftftftftftftftftftftftftftftftft 
; CONSOLE INPUT - RETURNS KEYBOARD CHARACTER TO CP/M ft 
; OPERATING SYSTEM. THIS ROUTINE MUST ALSO USE THE ft 
; CORRECT PORT ADDRESSING. THIS ROUTINE IS LABELED *• 
; "CNS*IN" AND CONTAINS A PATCH AREA. * 

; ftftftftftftftftftftftftftftftftftftftftftft#ftftftftftftftft«ftftftftftftft«ftftftftftftftftftftftftft 
; CONSOLE OUTPUT -- DISPLAYS CHARACTER TO CONSOLE UNIT, ft 
? THIS ROUTINE MUST USE THE CORRECT PORT ADDRESS FOR ft 
; BOTH THE OUTPUT STATUS AND OUTPUT DATA PORTS. THIS ft 
; ROUTINE MUST TEST THE CONSOLE OUTPUT STATUS BIT. # 
; THIS ROUTINE IS LABELED "CNS*OT" AND CONTAINS A ft 
; PATCH AREA. # 

; ft ft ft ft ft ft ft ft ft ft # ft ft ft ft ft ft ft ft ft ft ft ft * ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft # ft ft ft ft ft ft 
; BOARD REVISION - NOTE SOURCE FILE HAS CONDITIONAL ft 
5 STATEMENTS FOR BOARD REVISION. REVISION B BOARDS ft 
," MAY BE MODIFIED TO ACT AS REV-C (CALL JADE) OR ft 
5 DDBOOT MAY BE PATCHED. PROM IS FOR REV-C. * 












ADDRESS 


NAME 


FUNCTION 


REV 


F040 


DS$ASW 


ADDR SW MASK 


OE 


F043 


DEBASE 


ADDR SK RANGE 


EO 


F04B 


DS$HLT 


DD HALT BIT 


.1 



REV--B * 
or- ft 



E4 ft ft «■ 

02 * 

ftft SHOULD BE "EO" IF MA 10 JUMPER IS INSTALLED. ■«■ 
ft#»ft#ft#ft##*##ft###*#*####«#########ft»»ftftft«ft#»ftftftftftftftftftft 

DISK DRIVES - DDBOOT IS USING A 10 MILLISECOND STEP ft 

WHICH WILL HOME THE R/W HEAD ON MOST DRIVES. IF THE ft 

OSER DRIVE IS MUCH FASTER (SHUGART SAS50 OR SIEMENS ft 
FD100--SD) THEN THE STEP RATE CONSTANT MAY BE PATCHED*- 

NOTE: A DDBOOT PROM PATCHED FOR FAST DRIVES WILL ft 

NOT FUNCTION PROPERLY IP LATER USED WITH SLOWER ft 

DRIVES. SLOWER STEPS SHOULD ALWAYS WORK. A DELAY ft 

BEFORE READING HAS BEEN PROVIDED FOR HEAD LOAD TIME ft 

AND CAN BE USED POR DRIVE --MOTOR START UP TIME WHEN ft 

THE DRIVE MOTORS ARE CONTROLLED BY THE DOUBLE -D. * 



ADDRESS NAME FUNCTION 



; F1D1-F1D2 IM*TM*STP STEP TIME * 

. F1FA-F1FB IM*TM*DBR DELAY BEFORE READ # 



? DOUBLE D BOOTSTRAP SYSTEM ADDRESS # 



FOOO = 



PROMSADDR 



EQU 



OFOOOH 5DDBOOT SYSTEM. ADDRESS. 



; SET DOUBLE D SYSTEM PORT ADDRESS * 



0043 = 



D*PORT EQU 



043H 



; DOUBLE D PORT ADDRESS. 



; SET | JSER DOUBLE D BOARD REVISION * 



000 1 
0000 
0000 
0001 
0000 



TRUE- 


EQU 


1 


FALSE 


EQU 





REV*B 


EQU 


FALSE 


REV*C 


EQU 


TRUE 


MA 10 


EQLI 


FALSE 



5SET TRUE TO LOGIC ONE. 
5SET FALSE TO LOGIC ZERO 
5 SET TRUE FOR REV B BOARDS. 
iSET TRUE FOR REV C BOARDS. 
FALSE "TRUE IF MA 10 JUMPED (REV-B) 



; DEFINE HALT MASK AND BASE ADDRESS OF DOUBLE D * 



IF 
DS*HLT EQU 
DS$ASW EQU 
DEBASE EQU 

END IF 



REV$B AND NOT MA 10 

002H ; STATUS PORT HALT INDICATOR. 
OOCH ; STATUS PORT ADDR SW MASK. 
0E400H ; SYSTEM WINDOW BASE ADDRESS. 



IF 
DS*HLT EQU 
DS*ASW EQU 
D*BASE EQU 

END IF 



REV$B AND MA 10 

002H ; STATUS PORT HALT INDICATOR. 
OOCH ; STATUS PORT ADDR SW MASK. 
OEOOOH ! SYSTEM WINDOW BASE ADDRESS. 



000 1 
OOOE 
EOOO 



IF 
DS*HLT EQU 
DS*ASW EQU 
D$BASE EQU 

END IF 



REV*C 
00 1H 
OOEH 
OEOOOH 



5 STATUS PORT HALT INDICATOR. 
; STATUS PORT ADDR SW MASK. 
? SYSTEM WINDOW BASE ADDRESS., 



; BOOTSTRAP LINKAGE ADDRESS. # 

;###########■»• # # -K- p.- * •* -h ■«• *• # # a- ■»■ # # # # * # # # «• n- # * « » # * # «• # s- s- ■«• # k- k- «■■»## 



0080 = 
0040 = 

0042 = 

0043 = 

0377 = 

0378 = 
037A = 



BSTACK EQU 

D*ADDR EQU 

D$MASK EQU 

DSTEMP EQU 

BL*DCS EQU 

BL*ADR EQU 

BL*BSZ EQU 



OOSOH ; BOOTSTRAP TOP OF STACK. 

0040H ; DOUBLE D ADDRESS POINTER. 

0042H 5 DOUBLE D HALT BIT ADDR. 

0043H ;DDBOOT TEMPORARY LOCATION. 

0377H sDCM DISK CONTROLLER STATUS. 

0378H ;DCM LOAD AND -JUMP ADDR PNTR. 

037AH ;DCM BLOCK LOAD SIZE. 



ooso 



BL*DNR 



:.QL 



oosoi- 



DRIVE NOT READY BIT. 



; ft ft ft * »■ ft ft ft ft ft ft ft ft ft # ft ft ft ft »■ * ft ft ft * ft ft ft * ft ft ft ft ft # ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft 
5 DOUBLE D HARDWARE COMMANDS * 

; # * ft ft ft * # a ft ft ft ft * ft ft ft ft * ft * ft ft ft ft ft ft ft ft ft ft ft ft ft # ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft # ft ft ft * 



0080 
0001 
0000 
0001 
0003 
0002 



DC$BGN 


EQU. 


OSOH 


DCSMRQ 


EQU 


00 1H 


DC$MRT 


EQU 


00 OH 


DC*MBO 


EQU 


00 1H 


DC$MB1 


EQU 


003H 


DC*EXC 


EQU 


002H 



; RESET ZSOA AND EXECUTE. 
; REQUEST MEMORY WINDOW. 
; RELEASE MEMORY WINDOW. 
3 SELECT MEMORY BANK 0. 
; SELECT MEMORY BANK 1 . 
; ISSUE DOUBLE D INTERRUPT. 



FOOO 



; ftftftft#»ftftftftftftftftftftftftftftftftftftftftftftftft'ftftftftftftftftftftftftftftftft*ftftftftft*ft 
; ASSEMBLER DIRECTIVES * 

iftftftft#ft##ftftftftftftft»ft##*ftftftft#ft##ftft#ft#ftft*ftft#*ftft*ftftftftftft*ft#ftft 



ORG 



PROM*ADDR 



5 MODULE ADDRESS, 



FOOO 
F003 
F006 
F009 
FOOC 
FOOF 



C312F0 
C33AF0 
C3DAF0 
C3F6F0 
C313F1 
C332F1 



; ftftftftftftft#ftftftftftftftft#ft#ftft*ftftftftftftft#ftft#ftftftftftftftftftftftft»ftft*ft**** 
; DDBOOT FUNCTIONS VECTOR TABLE * 

; ft#ftftftftftft«#ft#ftftft#ftft#ft#ftft#ftftftftftftftft#ft#*»ft#»ftft*ft**#ft**«**«- 

J INITIALIZE AND BOOT. 

; REBOOT DISK SYSTEM. 

5 CONSOLE STATUS. 

; CONSOLE INPUT. 

; CONSOLE OUTPUT. 

5 MESSAGE TO CONSOLE. 

; INITIALIZE SYSTEM HARDWARE - USER PATCH AREA * 

; ftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftft****************** 



...IMP 


INIT 


..IMP 


BOOT 


JMP 


CNS*CK 


..IMP 


CNS* I N 


■JMP 


CNS*OT 


..IMP 


MSG*OT 



FO 1 2 


00000000 


F016 


00000000 


F01A 


00000000 


F01E 


00000000 


F022 


00000000 


F026 


00000000 


F02A 


00000000 


F02E 


00000000 


F032 


00000000 


F036 


00000000 



INIT: 



NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 



NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 



! NOP 
! NOP 
! NOP 
! NOP 
! NOP 
! NOP 
! NOP 
! NOP 
! NOP 
! NOP 



! NOP 
! NOP 
! NOP 
! NOP 
! NOP 
! NOP 
! NOP 
! NOP 
! NOP 
! NOP 



; PATCH 


AREA 


; PATCH 


AREA 


; PATCH 


AREA 


; PATCH 


AREA 


; PATCH 


AREA 


; PATCH 


AREA 


; PATCH 


AREA 


; PATCH 


AREA 


; PATCH 


AREA 


; PATCH 


AREA 



F03A 


31S000 


F03D 


DB43 


F03F 


E60E 


F041 


07 


F042 


F6E0 


F044 


67 


F043 


2E00 


F047 


224000 


F04A 


3E01 


F04C 


324200 


F04F 


324300 



; *###*####*#^##*##«#**ftftftftft#ftftftftft»#ftft##ftftftftftftft#ftftftftftftftft 

; SET STACK AND DETERMINE CONTROLLER ADDRESS * 



BOOT : 



LXI 


SP,BSTACh 


IN 


D*PORT 


AN I 


DS4ASW 


RLC 




OR I 


D*BASE ST 


MOV 


H , A 


MVI 


L,0 


SHLD 


Df>ADDR 


MVI 


A,DS*HLT 


STA 


D$MASK 


ST A 


D$TEMP 



:SET STACK POINTER. 

INPUT STATUS PORT. 
iMASK FOR ADDR SWS. 

POSITION BITS, 
i OR IN BASE ADDR. 
i HIGH BYTE VALUE. 
:LOW BYTE VALUE. 
: STORE THE ADDRESS 
lLOAD HALT BIT MASK. 
: STORE FOR BIOS USE. 
;SET REPEAT FLAG NZ . 



? INJECT BOOT MODULE INTO CONTROLLER * 



F052 


3E01 


IN. 


JECT: 


MVI 


F054 


D343 






OUT 


F056 


1 C600 






LXI 


F059 


2A4000 






LHLD 


F05C 


EB 






XCHG 


F05D 


2189F1 






LXI 


F060 


CDA7F0 






CALL 



A,DC$MBO ; REQUEST DD MEM BANK 0. 

DEPORT ; ISSUE COMMAND. 

B, IM*END~ I M*BGN ; INJECTION MODULE SIZE. 

D$ADDR ;LOAD DOUBLE D ADDR., 

;D*ADDR HL TO DE. 

H, IM$BGN ; INJECTION MODULE ADDR. 

BLOCK ! BLOCK MOVE. 



; RESET AND START THE DISK PROCESSOR * 



F063 3E80 
F065 D343 
F067 E3 
F068 E3 



MVI 


A,DC*BGN 


OUT 


D*PORT 


XTHL 




XTHL 





; BEGIN DD PROCESSOR. 
; ISSUE COMMAND. 
; ALLOW DOUBLE D TIME 
;T0 START UP. 



5 WAIT FOR TASK COMPLETION * 



F069 3A4200 
F06C 47 
FO&D DB43 
F06F AO 
F070 C26DF0 



WAIT: 



LDA 


D*MASf= 


MOV 


B)M 


IN 


D*POR"l 


ANA 


B 


JNZ 


WAIT 



SHALT BIT MASK. 
;MOVE INTO B REG. 
; INPUT DD STATUS. 
5 TEST HALT* STATUS. 
;WAIT TILL HALTED. 



SWITCH CONTROLLER MEMORY INTO SYSTEM BUS # 



F073 3E01 
F075 D343, 



MVI 
OUT 



A , DC*MRQ 
D*PORT 



; REQUEST MEM (BANK 0). 
5 ISSUE COMMAND. 



5 CHECK FOR BOOTSTRAP MALFUNCTION # 

? -Jf- -K- -K- *$£ # •# •& •$?• -ft -H* -ft- •& -ft -Jf ■& •&• •%■ ■& # -W ■ -fi- •}?• -£• -Jf ■& •& #• ■#■ -H* ■& ■& •&• •#■ ■& -Jr •& •& K- ■& •£• •& ■&•&£■ >r ■&■&■ -H- •«■■& ft ■&■&■ -#■ 



F077 2A4000 
F07A 117703 
F07D 19 
F07E 7E 
F07F E6S0 
F0S1 C2B4F0 
F0S4 7E 
F085 A7 
F086 C2CSF0 



LHLD 


D*ABDR 


LXI 


D,BL*DC 


DAD 


D 


MOV 


A,M 


AN I 


BL*DNR 


JNZ 


INSERT 


MOV 


A , M 


ANA 


A 


JNZ 


BAD$LD 



5 CONTROLLER ADDRESS. 
; ERROR CODE IM*BGN. 
J SET HL POINTER. 
5 GET ERROR CODE. 
5 TEST DRIVE NOT READY. 
5 IF DRIVE NOT READY. 
;GET ERROR CODE. 
;TEST REGISTER. 
5 BAD LOAD. 



7 # •& -8- -ft # -ft £*■ •£■ -ft -& -if ■& -8 • •&• ■& -ft -K- -S ■#■ ■& -Jf ■&• •& -fi- -fi • •& ■#• # ■ -K- •#• •&* -&• #■ #• ■&■ -S- -K- •&■ ■>£ ■&■ -ft -Jt # -S- •??• -ff* -H- ■??• # -K- -S- -S- -S -S- 

; PERFORM BLOCK TRANSFER FROM DISK MEMORY # 

? -W* •& -K- •& -ft -£ K ■ -ft •£• *# • ■# H • •£• -S -ft -& £ ■ •& •# -8 • •£• ■& #• -K- -K- *Jf ■& #■ •&• •&* •#■ *& -ft •&• •#• -B* ft ■&-&#•# ■#'#■■#•■& -8* -fi- ■& -H- -K- -K* ■&■•&• ■# 



F0S9 2A4000 
FOSC 117803 
F08F 1 9 



LHLD 


D*ADDR 


LXI 


D,BL$ADR 


DAD 


D 



; CONTROLLER ADDRESS. 
5L0AD ADDRESS PNTR. 
;SET HL POINTER. 



i-ovo 
F091 
F092 
F093 
F094 
F095 23 
F096 46 
F097 05 
F098 3E03 



l-UVA 
F09C 
F09F 



4E 



D343 

2A4000 

CDA7F0 



MOV 


E , M 


I N X 


H 


MDV 


D , M 


I NX 


II 


MDV 


CM 


I NX 


H 


MOV 


B,M 


PUSH 


D 


MVI' 


A,DC$MBJ 


OUT 


D3P0RT 


LHLD 


U*ADDR 


CALL. 


BLOCK 



?LOW ORDER ADDR. 

; INCREMENT HE. 

;HIGH ORDER ADDR. 

; REQUIRES BL.BSZ NEXT. 

?LOW ORDER LENGTH. 

; INCREMENT I-IL. 

;HIGH ORDER LENGTH. 

5USE AS JUMP ADDR. 

? SWITCH TO MEM BANK 1. 

; ISSUE COMMAND. 

; DOUBLE D MEM ADDRESS. 

;MOVE BIOS MODULE. 



TRANSFER CONTROL TO OPERATING SYSTEM # 



F0A2 3E01 
F0A4 D343 
F0A6 C9 



MV I 
OUT 
RET 



A»DC*MB0 
DfPORT 



; SWITCH TO BANK.O 

5 ISSUE COMMAND. 

5G0T0 bios COLD ENTRY. 



5 BLOCK MOVE SUBROUTINE ( Z80 BLOCK MOVE REGISTERS) # 



F0A7 


7E 


BLOCK: 


MOV 


A,M 


FOAS 


23 




INX 


H 


F0A9 


EB 




XCHG 




FOAA 


77 




MOV 


M, A 


FOAB 


23 




INX 


H 


FOAC 


EB 




XCHG 




FOAD 


OB 




DCX 


B 


FOAE 


78 




MOV 


A,B 


FOAF 


Bi 




ORA 


c 


FOBO 


C2A7F0 




JNZ 


BLO 


FOBS 


C9 




RET 





J GET BYTE. 

5 INC POINTER 

;GET DESTINATION. 

;PUT BYTE. 

? INC POINTER 

;GET SOURCE. 

5 0NE LESS TO DO. 

;GET HI COUNT. 

;get lo count. 
; finish loading. 



; DISK DRIVE IS NOT READY # 

5 ############*#######################################*# 



F0B4 


3A4300 


IN: : 


SERT: 


LDA 


D*TEMP 


F0B7 


A 7 






ANA 


A 


FOBS 


CA52F0 






JZ 


INJECT 


FOBB 


AF 






XRA 


A 


FOBC 


324300 






STA 


D*TEMP 


FOBF 


2156F1 






LXI 


H,MSG$1'N 


F0C2 


CD32F 1 






CALL 


MSG*OT 


F0C5 


C352F0 






•JMP 


INJECT 



5 LOAD IN IT FLAG. 
;TEST FOR INITIAL. 
;TRY BOOTING AGAIN. 
5ZER0 A REGISTER. 
; CLEAR INITIAL FLAG. 
; INSERT MESSAGE ADDR, 
; OUTPUT MESSAGE. 
; TRY BOOTING AGAIN. 



DOUBLE D BOOTSTRAP MALFUNCTION * 



F0C8 


324300 


BAD*LD: 


STA 




D*TEMP 


FOCB 


2171F1 




LXI 




H , MSG*ER 


FOCE 


CD32F1 




CALL 




MSG*OT 


F0D1 


3A4300 




LDA 




D*TEMP 


F0D4 


CD3EF1 




CALL 




HXB$OT 


F0D7 


760000 




HLT ! 


NOP 


! NOP 



; STORE ERROR CODE. 

; ERROR MESSAGE ADDEESS. 

; DISPLAY MESSAGE. 

;LOAD ERROR CODE. 

5 DISPLAY HEX BYTE. 

;HALT OR JUMP MONITOR. 



CONSOLE INPUT AND OUTPUT # 

XXX*SP: STATUS PORT ADDRESS * 

XXX*SBs STATUS READY BIT # 

XXX*SI: IF READY TRUE IS "1" USE "00" ELSE "FF" # 

XXX*DP: DATA PORT ADDRESS # 

# 



0000 
0002 
0000 
000 1 

0000 
0004 
0000 
000 1 



CNI*SP 


EQU 


OOOH 


CNI*SB 


EQU 


002H 


CNI*SI 


EQU 


OOOH 


CNI*DP 


EQU 


00 1 H 


CNO$SP 


EQU 


OOOH 


CNO*SB 


EQU 


004 H 


CNO*SI 


EQU 


OOOH 


CNO*DP 


EQU 


001 H 



; INPUT STATUS PORT. 

; INPUT STATUS BIT. 

; INPUT STATUS INVERT. 

; INPUT DATA PORT. 

; OUTPUT STATUS PORT. 

J OUTPUT STATUS BIT. 

S OUTPUT STATUS INVERT 

; OUTPUT DATA PORT. 



J CONSOLE INPUT STATUS CHECK * 



FODA 


DBOO C 


:NS*CK: 


IN 


CNI*SP 


FODC 


EEOO 




XRI 


CNI*SI 


FODE 


E602 




AN I 


CN I *SB 


FOEO 


C8 




RZ 




F0E1 


3EFF 




MVI 


A.OFFH 


FOES 


C9 




RET 




F0E4 


0000000000 




DB 


7 7 7 7 7 


FOEA 


0000000000 




DB 


j 1 ■> ■> 1 


FOFO 


0000000000 




DB 


, ■> ■> 7 7 



; INPUT STATUS PORT. 
% ADJUST POLARITY. 
STEST READY BIT. 
;ZERO IS NOT READY. 
;SET CONSOLE READY. 
5 ONES INDICATE READY. 

; PATCHING AREA. 
; PATCHING AREA. 
; PATCHING AREA. 



; CONSOLE DATA INPUT * 

5 ##fl'###&#^####### #■#########'#■&#• ########### 



F0F6 CDDAFO t 
FOF? CAF6F0 
FOFC DB01 
FOFE E67F 
F 1 00 C9 

F 1 1 0000000000 
F 1 7 
F 1 OD 0000000000 



CALL 


CNSSCK 


JZ 


CNSHil'N 


IN 


CNI*DP 


AN I 


07FH 


RET 


i 


DB 


7 7 7 7 7 


DB 


7 7 7 7 7 


DB 


7 7 J 7 7 



STEST INPUT READY. 
; REPEAT TEST FOR RDY. 
; INPUT CONSOLE DATA. 
J SEVEN BITS OF ASCII. 
; RETURN WITH DATA. 

; PATCHING AREA. 
; PATCHING AREA. 
? PATCHING AREA. 



; CONSOLE DATA OUTPUT # 



F113 


DBOO 


CNi 


;* 


:iT: 


IN 


CNO*SP 


F115 


EEOO 








XRI 


CNO*SI 


F117 


E604 








AN I 


CNO*SB 


F119 


CA13F1 








.JZ 


CNS*OT 


F11C 


79 








MOV 


A , C 



? OUTPUT STATUS PORT. 
; ADJUST POLARITY. 
STEST READY BIT. 
STEST AGAIN FOR RDY. 
5 OUTPUT SETUP. 



■1 ID 030 1 
"J.1F 09 

'3.20 

"126 0000 

12C 0000000000 



OUT 


CN03DP 


REIT 




DB 


7 7 7 7 7 


DB 


7 j ■! iOiO 


DB 


7 7 7 7 7 



; OUTPUT CONSOLE DATA. 
; RETURN COMPLETE. 

" PATCHING AREA. 
, PATCHING AREA. 
; PATCHING AREA. 



; MESSAGE DISPLAY ROUTINE - HL REG POINTS TO STRING # 



F132 7E 


MS 


G*OT: 


MOV 


A,M 


F133 FE24 






CPI 


••• $ •- 


F135 CS 






RZ 




F136 4F 






MOV 


C , A 


F137 CD13F1 






CALL 


CNS*OT 


F13A 23 






INX 


H 


F13B C332F1 






..IMP 


MSG*OT 



; LOAD CHARACTER/BYTE. 
; CHECK FOR TERMINATOR. 
5 EX IT IF TERMINATOR. 
;PASS BYTE IN C REG. 
, D I SPLAY CHARACTER . 
5 POINT TO NEXT BYTE. 
; REPEAT SEQUENCE. 



, DISPLAY A REGISTER IS HEX I DECIMAL * 



F13E 


P5 


HXB*OT: 


PUSH 


PSW 


F13F 


OFOFOFOF 




RRC ! RRC 


! RRC ! RRC 


F143 


CD47F1 




CALL 


HXN*OT 


F146 


Fl 




POP 


PSW 


F147 


E60F 


HXN*OT: 


ANI 


OOFH 


F149 


FEOA 




CPI 


OOAH 


F.14B 


DA50F1 




.JC 


HXN*NM 


F14E 


C607 




AD I 


•' A ••■-■•■ 9- 


F150 


C630 


HXN*NM: 


AD I 


"' "' 


F152 


4F 




MOV 


C, A 


F 1 53 


C313F1 




JMP 


CNS*OT 



:SAVE A REGISTER. 
SHIFT 4 PLACES. 
DISPLAY HEX NIBBLE. 
RESTORE A REGISTER. 
MASK LOWER NIBBLE. 
TEST IF LETTER HEX. 
DISPLAY NUMBER. 
ADD LETTER OFFSET. 
START WITH ASCII 0. 
OUTPUT BYTE TO C REG 
CONSOLE OUTPUT. 



; SYSTEM BOOTSTRAP MESSAGE AREA * 



F156 0D0A0A494EMSG*IN: DB 
F1.71 0D0A0A4444MSGSER: DB 



CR,LF,LF, "INSERT SYSTEM DISKETTE 
CR,LF,LF, -DDBOOT LOAD ERROR - •-,•'*■ 



■*• 



OOOD = 
000 A - 



CR 
LF 



EQU 
EQU 



OODH 
OOAH 



CARRAIGE RETURN. 
LINE FEED COMMAND. 



; ######7*##'>"tf«7f######7*####7*7*# 

; INJECTION MODULE #*# THE FOLLOWING EXECECUTES IN DD # 

? THIS SECTION OF CODE IS HAS BEEN WRITTEN WITH AN * 

; ADDRESS OFFSET SO AS TO ASSEMBLE WITH IM$BGN AT # 

? LOCATION ZERO. * 
; *####«-######7*#####*-##£-*-#**^^ 



; DOUBLE D INTERNAL PORT ASSIGNMENTS 

; •«■ a- * * # *■ «• *■ # a # a- ■«■ # # a- a a # *■ *• a- a a- *• a k -s *■ a- s •» # s- a- *■ s- «■ # -s- >;• # •» *:• «■ # s ->:■ # -s- -*• - 



0000 = IM*BL*STS EQU 000H ; BOARD STATUS 

0000 == IM*BL*CTL EQU OOOH ; BOARD CONTROLS 

0004 = IM*WD*CMD EQU 004H ?179X COMMAND REGISTER 

0004 = IM*WD*STS EQU 004H ;179X STATUS REGISTER 

0005 = IM*WD*TRI< EQU 005H ; 1 79X TRACK REGISTER 

0006 = IM$WD$SEC EQU 006H 5 179X SECTOR REGISTOR 

0007 = IM$WD$DTA EQU 007H ;179X DATA REGISTER 

0008 = IM*XP*STP EQU 008H ; STEPPER PULSE 
0010 = IM*XP$MTO EQU OiOH 5 MOTOR TIME OUT 
0040 = IM*XP*MTX EQU 040H 5 MOTOR TIME EXTEND 
0080 = IM*XP*DSH EQU 080H ; DATA SYNC HOLD 

; 1 79 X -02 COMMAND CODES # 

0018 = IM*DC*HDL EQU 00011000B i LOAD R/W HEAD. 

0098 = IM*DC*RMS EQU 10011000B ; READ MULT I -SECTOR. 

OODO = IM*DC*STS EQU 11010000B J SET TYPE 1 STATUS. 

; Z80 INSTRUCTION HEX CODES - NOTE HI /LOW ORDER SWAP * 

21FD = IM*LXIY EQU 021FDH i LOAD Y REG I MED. 

45ED = IM*RETN EQU 045EDH ; RETN <NMI RETURN). 

E3FD = IM$XTIY EQU 0E3FDH ," EXCHANGE (SP) <> IY. 

; BOARD STATUS AND CONTROL PORTS * 

0001 -~ l'M*BS*USO EQU 00 1H ; 179X-02 POLARITY TEST. 
0004 = IM*BC*DRO EQU 004H ; DRIVE SELECT/ENABLE. 

; DISK STATUS MASKS * 

; ###########■*################«#############•»########### 

009C = IM*DM*RER EQU 10011100B ; READ ERROR TEST MASK. 

0004 = IM*DM$TKO EQU 00000 100B 5 TRACK TEST. 

0080 = IM*DM*DNR EQU 10000000B ? DRIVE NOT READY. 

; ##•»##■»••«■■* ■«••» #####■*### •»•«•#•*■»•«• #■&#•» »•«••!* •»•■«•■» #«■*■■»••» #«#•«•■»•* ####■*#»# 

; DISK DRIVE PARAMETERS # 

; #################*## #«-###«-#######################*#### 

OOOA = IM*TM*STP EQU 10 5 STEPPER INTERVAL. - MS. 

0028 = IM*TM$DBR EQU 40 ; DELAY BEFORE READ- MS. 

004D = IM*NB$TRK EQU 77 5 NUMBER OF TRACKS. 

; #########•»#«•##«•####*##«■#################•»*■#■«■######*■»## 
; INTERNAL MEMORY ASSIGNMENTS * 

; *#############################■»######*••*######*###*#### 

0000 = IM$BKO EQU OOOOH ; LOWER BANK ADDRESS.. 

0400 = IM*BKL EQU 0400H ; IK BANK LENGTH. 

0400 = IM*BK1 EQU IM$BK0-KIM$BKL ; UPPER BANK ADDRESS. 

0066 - IM*NMI EQU IM$BK0K>066H ; NON-MASKABLE INT ADDR. 



:..:: .-o ihsDLss .:.: EQU IM*BK0+0376H ; ERROR CODE LOCATION. 

'...:•„:/■- Ii'1 5:- BL 'EL-.: 3 EQU IM$CKO -i BL$DCS ;DISK' CONTROLLER STAT.. 

V ft ft >:■ * -;;- ft ft ft ft * ft ^ ft ft ft ft ft ft » ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft * « ft ft ft ft « ft ft « ft * *• ft ft ft ft ft ft 
" BOOTSTRAP COMMON [CATION * 

; ft ft ft ft ft ft ft * ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft ft # ft * ft # ft ft ft * ft ft * ft ft ft ft ft ft ft * ft * *• ft ft ft ft ft ft 

OOOI. = BE*HOM EGO - 00 1H 5 HOME ERROR. 

0002 - BE*RDA EQO 002H i READ ERROR A. 

0004 - BE*RDB EQO 004H ; READ ERROR B. 

; ftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftft 
; DISK CONTROLLER MODULE (DCM) LINKAGE ft 

; ftftftft#ftftftftftftftftftftftftftftftftftftftftft#ftftftftftftftftftftftftftftftftftftftftftftftftftftft 

GOOD - ■ DCM*SS EQU 13 ; FIRST DCM SECTOR = 13. 

0403 == DCM*BG EQU IM*BKl+3 5 DCM COLD START ENTRY. 

0400 = BCM*LN EQU 0400H 5 DCM LENGTH 

; ##ft#ft#####ftft##ft*ft*ft#ftftft##ft#ftftftftftft*ftft#ftftftftftftftft##ftftft#*ft# 
J SET STACK, START DRIVE MOTOR, AND SET INVERT 3W (C) ft 
; #ftftftft#ft##ft#ft#ft#ftftft#ft#»#*ftftftftftftftftft»ft#ftftftftftftft#ftftftftftftftftftft 

;SET UP STACK. 
;TURN ON MOTOR. 
; ASSUME 1793. 
; INPUT STATUS. 
;TEST user sw 0. 
5G0T0 SELECT DRV. 
; 1791-01 INVERTS. 

; ftftftftftftftftftftftft»ftftft«ftftftftftft*ftft#ft#ftftftft##ftftft#ftftftftftft##ftftftft#ft# 
; CLEAR 179X-01 INTERRUPT AND SELECT DRIVE * 

; ftftftftftftftftftftftftftftftftftftftftftft##**ftft«ftft##ft##ft#ftftftftftftftftftftftft»ft«ft 



F139 


310004 


IMSBGN: 


LXI 


SP, IM$BK1 


F1SC 


DB40 




IN 


IM*XP*MTX 


F1SE 


OEOO 




MVI 


C, 


F190 


DBOO 




IN 


IM*BL*STS 


F192 


E601 




AN I 


IM*BS*USO 


F194 


C2 1 000 




JNZ 


IM*DRV-IM*BGN 


F197 


OEFF 




MVI 


COFFH 



Fl 99 CD5000 IM*DRV: CALL IM*STS-IM*BGN 
F19C 3E04 MVI A, IM$BC$DRO 

F19E D300 OUT IM*BL*CTL 



179X-01 FORCED CLEAR. 
DRIVE 0, ENABLED. 
OUTPUT CONTROLS . 



; ##ft##*#ftftftftftftftftft#ftftftftftftft*####ft»«#»#ftftftftftftftftftftftftftftftftftftft 
; CHECK FOR DRIVE READY SIGNAL * 

; ftftftft#ftftftftftftft#ftft*ftftftftftftftftft#*#ft##ft#ft#»ftftftftftftftftftftftftftftftftft# 

F1A0 CD5000 CALL IM*STS-IM*BGN ? GET DRIVE STATUS. 

F1A3 327703 STA IM*BL*DCS ; STORE DRIVE STATUS. 

F1A6 E680 AN I IM*DM*DNR 5 CHECK DRIVE NOT RDY. 

F1AS CA2600 JZ IM*HDL-IM*BGN 5 IF READY, BOOT SYSTEM. 

F1AB AF XRA A 5 ZERO A REGISTER. 

F1AC C3B100 JMP IM*HLT-IM*BGN ; DOUBLE D SHUTDOWN. 

; ftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftft-K-* 
5 LOAD R/W HEAD ON SELECTED DRIVE ft 

; ft»»##ftft#ftftftftft»ft#ftft#ftftftftftftft»ftftftftftftftftftft#ftftftft#ftftftftftft#ftftftft 

F1AF 79 IM*HDL: MOV A,C ; GET TRACK VALUE. 

F1B0 D305 OUT 1M*WD*TRK ; SET TRACK REGISTER. 

F1B2 D307 OUT IM*WD$DTA ; SEEK SAME TRACK. 

F1B4 FD21 DW IMSLXIY ; Z80 LXIY HEX CODE. 

F1B6 3700 DW IM*HME-IM*BGN 5 SET NMI RETURN ADDR. 

FIBS 3E13 MVI A,IM*DC*HDL ; HEAD LOAD COMMAND. 



F1BA A? 
F1BB D304 
F1BD C33400 



XRA 

OUT 

IM*WFI: JMP 



IM*WD$CMD 
IM*WFI~IM*BGN 



? INVERT (1791-01). 

5 ISSUE COMMAND. 

; W A I T FOR I NTERRUP T . 



. POSITION R/W HEAD AT TRACK ZERO # 



F1C0 


2E4D 


IM*HME: 


MVI 


L, IM*NB*TRK 


F1C2 


CD5000 


IM*I 


3TP: 


CALL 


IM*STS-IM*BGN 


F1C5 


E604 






ANI 


IM*DM*TKO 


F1C7 


C27000 






•JNZ 


IM*RSU-IM*BGN 


F1CA 


2D 






DCR 


L 


F1CB 


CAAFOO 






JZ 


IM*EHM~-IM*BGN 


F1CE 


DB08 






IN 


IM*XP*STP 


FIDO 


110A00 






LXI 


D, IM*TM*STP 


F1D3 


CDBSOO 






CALL 


IM*TMR-IM*BGN 


F1D6 


C33900 






JMP 


IM*STP-IM*BGN 



;SET MAX TRACKS. 
J GET 179X STATUS. 
5TEST TRACK BIT. 
; TRACK EXIT. 
5 DEC ATTEMPTS. 
J CANT FIND TRK 0? 
; ISSUE STEP PULSE. 
5STEP INTERVAL TIME. 
; PAUSE FOR PERIOD. 
;TRY ANOTHER TIME. 



GET UPDATED 179X-01 STATUS * 



F1D9 


3ED0 


IM*STS: 


MVI 


A, IM*DC*STS 


," TYPE 4 


■•■ STATUS. 


F1DB 


A9 




XRA 


C 


; INVERT 


( 1791 01 ) .. 


F1DC 


D304 




OUT 


IM*WD*CMD 


; I SSUE C 


GMMAND. 


FIDE 


E3 




XTHL 




? DELAY 




F1DF 


E3 




XTHL 




; DELAY 




F1E0 


E3 




XTHL 




5 DELAY 




F1E1 


E3 




XTHL 




5 DELAY 




F1E2 


DB04 




IN 


IM*WD*STS 


;GET STY 


iTUS 


F1E4 


A9 




XRA 


C 


; INVERT 


< 1791-01 ) . 


F1E5 


C9 




RET 




; RETURN 


TO CALLER. 



DISK INTERRUPT "NMI" ROUTINE * 



FIEF 



ORG 



IM$BGN+.TM*NMI 



FIEF 


DB04 


F1F1 


A9 


F1F2 


327703 


F1F5 


FDE3 


F1F7 


ED45 



IN 


IM*WD*STS 


XRA 


c 


STA 


IM$BL$DCS 


DW 


IM*XTIY 


DW 


IM*RETN 



;GET 179X STATUS., 
5 INVERT (1791-01). 
5MAKE STATUS VISIBLE 
5 EXCHANGE (SP) <> IY 
;NMI RETURN (RETN). 



; SET-UP FOR DCM READ OPERATION * 



F1F9 


112800 IM*RSU: LXI 


D, IM*TM*DBR 


F1FC 


CDBSOO 


CALL 


IM*TMR-IM*BGN 


F1FF 


1 10004 


LXI 


D, IM*BKL 


F202 


210004 


LXI 


H, IM$BK1 


F205 


FD21 


DW 


IM*LXIY 


F207 


A500 


DW 


IM*REA-IM*BGN 


F209 


3E0D 


MVI 


A,DCM$SS 


F20B 


A9 


XRA 


C 


F20C 


D306 


OUT 


IM$WD$SEC 


F20E 


3E98 


MVI 


A, IM$DC$RMS 



5 DELAY BEFORE READ. 
;CALL MS. TIMER. 
J SET BANK LENGTH 
5 DCM LOAD ADDRESS 
;Z80 LXI Y HEX CODE. 
5 READ ERROR TRAP. 
5 FIRST SEC OF DCM. 
; INVERT (1791-01) 
;SET 179X SEC REG. 
; READ MULT I -SECTOR. 



F210 A9 
F211 D304 



XRA 
OUT 



IM$WD$CMD 



; INVERT (1791-01). 
' ISSUE 179X COMMAND. 



; ACCEPT EACH BYTE AND STORE IN MEMORY # 



F213 DBSO 


IM*RBT: 


IN ■ 


IM*XP*DSH 


F215 DB07 




IN 


IM*WD$DTA 


F217 A9 




XRA 


C 


F21S 77 




MOV 


M, A 


F219 23 




I NX 


H 


F21A IB 




DCX 


D 


F21B 7A 




MOV 


A,D 


F21C B3 




ORA 


E 


F2 ID C2SA00 




JNZ 


IM*RBT-IM*BGN 



5 WAIT FOR DATA. 
; INPUT INV DATA. 
; INVERT (1791-01). 
5 STORE DCM BYTE. 
S INCREMENT POINTER. 
5 DECREMENT LENGTH. 
;get HIGH REG. 
;THEN OR- IN LOW REG. 
J READ ANOTHER BYTE. 



TEST READ STATUS, TERMINATE OPERATION, GO DCM * 



F220 
F222 
F223 
F225 
F22S 
F22B 



DB04 

A9 

E69C 

C2AA00 

CD5000 

C30304 



IM$TRS: IN 
XRA 
ANI 
■JNZ 
CALL 
JMP 



IM*WD*STS ; INPUT READ STATUS. 

C ," INVERT (1791-01). 

IM*DM*RER 5 TEST FOR ERRORS. 

IM*REB-IM*BGN 5 READ ERROR TRAP. 

I M*STS- 1 M*BGN ," TERM I NATE READ . 

DCM*BG ; TRANSFER TO DCM. 



F22E 3E02 
F230 C3B100 
F233 3E04 
F'235 C3B100 
F233 3E01 
F23A 327603 
F23D AF 
F23E D300 
F240 76 



, READ ERROR HAS BEEN DETECTED * 



IM*REA: MVI 
JMP 

IM*REB: MVI 
JMP 

IM*EHM: MVI 

IM*HLT: ST A 
XRA 
OUT 
HLT 



A , BE*RDA 

IM*HLT-IM*BGN 

A,BE*RDB 

IM*HLT-IM*BGN 

A,BE*HOM 

IM*BL*ERC 

A 

IM*BL*STS 



5 load read error code. 
;g0 to error halt. 
;load read error code. 
;go to error halt. 
shome error code. 
; display error code. 
;zero a reg. 
; deselect drive, 
s terminate. 



; TIMER - WAIT FOR ( BC * 1.0) MILLISECONDS # 



F241 


3EDC 


IM*TMR: 


MVI 


A , 220 


F243 


3D 


IM*TMX: 


DCR 


A 


F244 


00 




NOP 




F245 


C2BA00 




JNZ 


IM*TMX-IM*BGN 


F24S 


IB 




DCX 


D 


F249 


7A 




MOV 


A,D 


F24A 


B3 




ORA 


E 


F24B 


C2BS00 




JNZ 


IM*TMR-IM*BGN 


F24E 


C9 




RET 





5L0AD INT MS VALUE. 
;DEC FOR 1 MS. 
? EXTRA TIMING DELAY. 
; REPEAT FOR 1 MS. 
;TEST FOR ANOTHER MS. 
; CHECK REG D. 
;AND REGISTER E. 
;D0 ANOTHER 1 MS. 
;TIME PERIOD EXPIRED! 



F24F 



IMPEND: END BEGIN ; END OF ASSEMBLY. 



A>DD' 
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F'OOO 


C3 


12 


FO 


C3 


■Z'M 


FO 


C3 


DA 


FO 


C3 


F6 


FO 


C3 


1 3 


Fl 


C3 




■ " ■ 


«■■«««■«■■ 


FOIO 


32 


F 1 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 
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^! ■ . 
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........ n • 


F020 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


> m m 


» m m 


unmm**m*xn 


F030 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


31 


80 


00 


DB 


43 


E6 


mum 




.... 1 ... C . 


F040 


OE 


07 


F6 


EO 


67 


2E 


00 


22 


40 


00 


oL 


01 


32 


42 


00 


"„".' xi 


u m m 


» G . 


. "e.>.2B.2 


F050 


43 


00 


3E 


01 


D3 


43 


1 


C6 


00 


2A 


40 


00 


EB 


21 


89 


Fl i 


S m _•' 


. . C 


a a ■ " VL ■ . ..a 


F060 


CD 


A 7 


FO 


3E 


80 


D3 


43 


E3 


E3 


3A 


42 


00 


47 


DB 


43 


AO 


U IT « 


_■*' a a 


C. . JB.G.C. 


F070 


C2 


6D 


FO 


3E 


01 


D3 


43 


2A 


40 


00 


11 


77 


03 


1 9 


7E 


E6 


.M. 


-■'' m m 


C#€ a . W . . •■'- a 


FOSO 


SO 


C2 


B4 


FO 


7E 


A 7 


C2 


L-b' 


FO 


2A 


40 


00 


11 


/ O 


03 


19 




m *"* m 


a a a #@. . X. a 


F090 


5E 


23 


56 


23 


4E 


*7> o 


46 


D5 


3 EI 


03 


D3 


43 


2A 


40 


00 


CD • 


••#V#1M#F.>. „C#@. . 


FOAO 


A7 


FO 


3E 


01 


D3 


43 


C9 


7E 


23 


EB 


77 


2! 3 


EB 


OB 


78 


Bl 


* -. 


a . C 


. ■"■•#. W# a . X. 


FOBO 


C2 


A 7 


FO 


C9 


3A 


43 


00 


A 7 


CA 


\J.ri. 


FO 


AF 


32 


43 


00 


21 


■ m a 


. sc 


. . . R . . 2C a i 


FOCO 


56 


Fl 


CD 


32 


Fl 


C3 


52 


FO 


32 


43 


00 


21 


71 


Fl 


CD 


■•-• ui. V « « 


jC u m 


R.2C. !Q. .2 


FODO 


Fl 


3A 


43 


00 


CD 


3E 


Fl 


76 


00 


00 


DB 


00 


EE 


00 


E6 


02 


, - c 


* ■ -•' 


■ Vaaaaaoan 


FOEO 


C8 


3E 


FF 


C9 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


■ -•*" ■ 


N N * 


■ Maaaasaaa 


FOFO 


00 


00 


00 


00 


00 


00 


CD 


DA 


FO 


CA 


F6 


FO 


DB 


01 


E6 


7F 


• m a 


■ M m 
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FlOO 


C9 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


■ a m 


KM* 


aaaaaaaaaa 


FUG 


00 


00 


00 


DB 


00 


EE 


00 


E6 


04 


CA 


13 


Fl 


79 


D3 


01 


C9 


* ■ ■ 


mum 


aMflMptaTaaa 


F120 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


« it 


a a > 


aaaaoaaaaa 


F130 


00 


00 


7E 


FE 


24 


C8 


4F 


CD 


13 


Fl 


23 


C3 


■— * X'm 


Fl 


F5 


OF 


a 


.*. 


'— * m m tt IT • .t, • a a 


F140 


OF 


OF 


OF 


CD 


47 


Fl 


Fl 


E6 


OF 


FE 


OA 


DA 


50 


Fl 


C6 


07 


m m 


. G. 


P. . . 


F150 


C6 


30 


4F 


C3 


13 


Fl 


OD 


OA 


OA 


49 


4E 


53 


45 


52 


54 


20 


oc 




. ". . "insert" 


F160 


53 


59 


53 


54 


45 


4D 


20 


44 


49 


53 


4B 


45 


54 


54 


45 


20 SYS 


TEM 


DISKETTE 


F170 


24 


OD 


OA 


OA 


44 


44 


42 


4F 


4F 


54 


20 


4C 


4F 


41 


44 


20 $. ■ 


. DDBOOT LOAD 


F1SO 


45 


52 


KJO 


4F 


52 


20 


2D 


20 


24 


31 


00 


04 


DB 


40 


OE 


00 ERROR 


•■- *i. . . e. a 


F190 


DB 


00 


E6 


01 


C2 


10 


00 


OE 


FF 


CD 


50 


00 


3E 


04 


D3 


00 


B H 


a a a 


. . . . P . > . . a 


F1AO 


CD 


50 


00 


•™«!iil 


77 


03 


E6 


80 


CA 


'"'6 


00 


AF 


C3 


Bl 


00 


79 


P. 


2W. 


... 'Ss ..... Y 


F1BO 


D3 


05 


D3 


07 


FD 


21 


37 


00 


3E 


13 


A 9 


D3 


04 


C3 


34 


00 


. . 


i 


/ m -•*" a w a m a^"a 


F1CO 


2E 


4D 


CD 


50 


00 


E6 


04 


C2 


70 


00 


2D 


CA 


AF 


00 


DB 


08 


M. 


P. . 


. P . ■- ..... 


FIDO 


ii 


OA 


00 


CD 


B8 


00 


C3 


39 


00 


3E 


DO 


A9 


D3 


04 


E3 


E3 


■ ■ 


• m * 


. 9 . > 


F1EO 


E3 


E3 


DB 


04 


A 9 


C9 


FF 


FF 


pp 


pp 


FF 


FF 


pp 


FF 


FF 


DB 


a a 


m a a 


aaaaaatraaa 


FIFO 


04 


A9 


32 


77 


03 


FD 


E3 


ED 


45 


11 
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00 


CD 


B8 


00 


11 


m ^1 


w. . 


. . E a ( 


F200 


00 


04 


21 


00 


04 


FD 


21 


A5 


00 


3E 


OD 


A9 


D3 


06 


3E 


98 


I 


H U t. 


1 "J. -;. 


F210 


A9 


D3 


04 


DB 


80 


DB 


07 


A9 


77 


.iC •.-* 


IB 
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B3 


C2 


8A 


00 


m o 


a a a 


a a W#.Z. . a a 


F220 


DB 


04 


AS' 


E6 


9C 


C2 


AA 


00 


CD 


50 


00 


C3 


03 


04 


SEE 


02 


a m 


man 


■ a a T a a a a ..-* a 


F230 


C3 


Bl 


00 


3E 


04 


C3 


Bl 


00 


3E 


01 


32 


76 


03 


AF 


D3 


00 


a a 


-■ : ' * a 


m h -■ a J.- V a a m a 


F240 


76 


3E 


DC 


3D 


00 


C2 


BA 


00 


IB 
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B3 
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B8 


00 


C9 
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pp 
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FF 
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FF 


FF 

FF 
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FF 
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pp 

FF 

FF 

FF 


pp 

FF 
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FF 
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pp 

FF 
FF 


FF 
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pp 
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pp 
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FF 

FF 
pp 

pp 


pp 

FF 

FF 
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pp 

p F 
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pp 
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FF 

FF 

pp 
FF 


FF 
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FF 


pp 

FF 

FF 
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pp 

pp 


FF 
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FF 

FF 

FF 

pp 








F260 








F270 








F280 








F290 








F2A0 


a n 
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F2B0 


FF 
Ff: . 

FF 
FF 


FF 
FF 
FF 
FF 


FF 
FF 
FF 
FF 


FF 
FF 
FF 

FF 


FF 
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FF 
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pp 
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pp 
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pp 
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pp 
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FF 

FF 
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FF 
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pp 

pp 
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F2C0 








F2D0 








F2E0 








F2F0 


FF 


FF 


FF 


FF 


FF 
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JADE COMPUTER PRODUCTS 
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Subject: Engineering Change Notice # i. 

Product: Double D Disk Controller. 

Revision: B and C revision boards. 

Date: August 4. 1980. 

It has been reported that insertion of the Double D Disk 
Controller into of some S100 systems prevents normal operation. 
Usually on these systems the common characteristic is that they 
just will not operate. Please note SiOO Bus pins #20. #53. and 
#70 are connected to ground. as per SIOO Standards. IEEE Task 
696. 1/D2. These pin connections do cause interferance with IMSAI 
front panel systems or cpu boards designed to operate with front 
panels. It is permissable to cut the foil links connecting pins 
#20. 53. and 70 to their respective plate-thru-holes. Please 
verify in your system documentation that these pins are causing 
interference before cutting. 



Subject: Engineering Change Notice # 2. 

Product: Double D Disk Controller. 

Revision: B and C revision boards. 

Date: August 4. 1980. 

A review of the Double D 8" phase locked loop has been 
completed. This has resulted in a reselection of some component 
values. Enhanced operation, particularly in double density, will 
be realized with the following modification. This modification 
will double the loop capture range and also eliminate a cause of 
loop instability. 

With the exception of Rl> just change those resistors listed 
for the new values as shown in the list. Ri does have a changed 
value but also must be installed so that it will connect to +5 
volts regulated instead of the previous connection to VX. With 
careful lead bending and resistor placement. one lead can solder 
to the +5V foil running from pin #16 of IC 1A to pin #16 of IC 
IB. It would help to scrape some of the solder mask away before 
soldering Ri to this foil. Vx will now measure about +5.0 volts. 
Installation of the modification will require retuning the PLL. 

Ri 6. 8K i/4W (TO +5v) R42 470K 1/4W 

R3 12K 1/4W R43 2. 7K 1/4W 

R4 10K 1/4W R49 JUMPER 

R38 20K 1/4W 



Subject: Engineering Change Notice # 3. 

Product: Double D Disk Controller. 

Revision: B and C revision boards. 

Date: August 4i 1980. 

The Double D Disk Controller uses S-100 signal Swo*. CPUs 
such as SBC-100 and SBC-200 do not generate these signals and 
therefore present an interface problem. The following 
modification has solved the problem with the above mentioned 
boards. 

1. On the solder side of the board: Cut the foil link from S-100 
pin # 97 to the plate-thru-hole. 

2. On the Solder Side of the Board: Using a small gauge wire 
jumper IC 1H pin #2 to IC 3J pin #1. 



Subject: Engineering Change Notice # 

Product: Double D Disk Controller. 

Revision: B and C revision boards. 

Date: August 4, 1980. 



The Double D Disk Controller exhibits erratic operation when 
run with the Big-Z Z80 CPU board. The problem exists on the 
Big-Z board. The following modification fixes this problem. 
Note: The Big-Z does not send out write data to the S-100 Bus 
until it actually sends the write strobe. This modification 
allows the write data to settle on the S-100 Bus before the 
write strobe is issued. 

1. On the solder side Big-Z: Cut the foil from IC 22 pin # 13. 

2. On the solder side Big-Z: Jump IC 22 pin # 13 to pin # 3. 



Subject: Engineering Change Notice # 5B. 

Product: Double D Disk Controller. 

Revision: B and C revision boards. 

Date: August 5, 1980. 

IMPORTANT NOTICE! BOARD MODIFICATION NEEDED on revision C. 
This ECN pertains to the use of the Double D disk controller with 
JADE RELEASE # 2 of CP/M 2. 2. Connector J3 pin #48 was 
designated ILLEGAL PACK*. It has been redefined and it is now 
designated TWO SIDED*. 

Many Shugart SA8OO/8OI1 Siemens FD100~8» and other models of 
disk drives have optional data seperators installed. Disk drives 
using these options use pin #48 of the 50 line ribbon for the 
SEPERATED DATA* signal. As release #2 (specifically DCM2) 
monitors this signal line for TWO SIDED* , ERRATIC DISK OPERATION 
would be expected. Please cut the foil link between the two 
plate-thru-holes at J3 pin #48 (Revision C). For use with the 
SA850/851 disk drive a jumper should be installed on the J3 
patching area from the lower pin # 48 plate-thru-hole to the 
upper pin #10 plate-thru-hole. This completes the path for the 
TWO SIDED* signal from the SA850/851. 



Subject: Engineering Change Notice # 6. 

Product: Double D Disk Controller. 

Revision: B and C revision boards. 

Date: August 5* 1980. 

NOTE: Concerning the Double D Disk Controller when used 
with 64K of system memory or any other memory arrangement where 
the Double D memory window overlaps assigned memory space. 

When used in this configuration the Phantom Block must be 
jumpered to complete the PHAN* signal path to the S100 bus. The 
Phantom Block is located below IC 4D. It appears as two plate- 
thru-holes enclosed by a silkscreen border labeled PHAN*. Add a 
jumper connecting these two holes together. Any memory board 
that the Double D is to overlap must be configured so as to be 
disabled when responding to the Phantom signal (PHAN*). 



Subject: Engineering Change Notice # 7. 

Product-. Double D Disk Controller. 

Revision-. B and C revision boards. 

Date: October 6, 1980. 



NOTE: Use National Semiconductor 74LS123 one-shots on the 
Double-D controller board. The resistor / capacitor combinations 
have been selected to provide proper pulse periods when used with 
this one-shot. Double D disk controller boards (A&T and kit) are 
now supplied with National Semiconductor 74LS123s. Customers who 
build Double D bare boards take note. 



Subject: Engineering Change Notice # 8. 

Product: Double D Disk Controller. 

Revision: C revision boards. 

Date: October 6, 1980. 



The following list contains corrections to the Double D 
revision C schematic of 3/7/80. Please make these corrections to 
your diagrams. 

i. The output of IC 1M (7406) pin 6 to the plate- 
thru-hole in the Interrupt Block shoule be labeled 
DINT*. (Page 1) 

2. A section of IC 3L (pins 5 and 15) has been 
drawn and labeled as a 74LS244. This is shown on 
page 1 connected to the 1791. This part is a 
74LS240. 

3. An inverting buffer* part of IC 3L (74LS240) pins 
11 and 9, is not shown in the diagram. Pin 11 is 
the input and is connected to DDEN. Pin 9 is the 
output and is the source for DDEN*. 

4. Four pin assignments of IC 3H (8131) are in error. 
Change pin 13 to pin 11, pin 12 to pin 10# pin 11 
to pin 13j and pin 10 to pin 12. (Page 1) 

5. The input to IC 4A on pin 13 is labeled as BPWR*. 
This label should read as BPWR. (Page 2) 



Subject: Engineering Change Notice # 9. 

Product: Double D Disk Controller. 

Revision: B and C revision boards. 

Date: October 6, i960. 



The following jumper configuration can be used with the 
Shugart SA800/S01 model disk drive. 



EACH DRIVE: 



A, 



B, 



C. 



Y, 



12, HL, 



800 



DRIVE 


A 


DSi 


DRIVE 


B 


DS2 


DRIVE 


C 


D33 


DRIVE 


D 


DS4 



LAST DRIVE: 



Ti, 13, T4» T5, 



T6 



THE L JUMPER IS SET DEPENDING ON THE -SV SUPPLY. 
CONSULT YOU SASOO MANUAL. USE NO OTHER JUMP PLUGS 
IN THIS CONFIGURATION. 



Siemens disk drive models FD120-8B and the newer FD100-8D 
can be used the Jade Double D. Each drive must have the Radial 
select option plug set to the proper drive number. O selects 
drive Ai i selects drive B, 2 selects drive C, and 3 selects 
drive D. Only the last drive on the ribbon should contain the 
resistor pack. Be sure to review £CN #5. No other changes are 
needed. 



The following page describes a tested jumper configuration 
for the Shugart SA850/851 when used with JADE RELEASE # 2 of CP/M 
2. 2. 



SHUOART SA850/8S1 



Start with the disk drives(s) set to factory configuration as 
described in the service and maintenance manual. Then perform 
the following alterations to the drive(s). 

1. Remove the ■'IW plug. This allows for lower write current on 
the inside tracks. 

2. Remove, the •'RS' - plug and install this plug at /Rli-'. This 
allows DRIVE READY to be true when DIRECTION (SIDE SELECT) 
is selecting the wrong side of a single sided diskette. 

3. Break connection "~A" on the shorting plug and install a plug 
at 'C This allows the drive to be selected without 
enabling the stepper or loading the R/W head. 

4. Break connection 'Z' on the shorting plug and install a plug 
at "Y". Activity light will be on ujhen the R/W head is 
loaded. 



6. 



Remove the -'32'' plug and install at ■'Si'', 
select from the DIRCTION signal. 

Remove the '851'" plug and install at '850' 
for soft sectored diskettes. 



This allows side 



This is done 



7. Install a plug at '2&'. This allows the drive to issue the 
TWO SIDED signal when double sided diskettes are being used. 

8. Remove the y DL" plug. 

9. Set -5/-15 V according to the negitive supply voltage you 
are using. This applies to early SA850/851. 



10. Drive A 
Drive B 
Drive C 
Drive D 



Install plug at 'DSi'. 

Install plug at 'DS2'. 

Install plug at 'DS3'. 

Install plug at ''DS4''. 



11. Remove the terminator from all but the last drive on the 
ribbon cable. 



12. Install Jade Double D ECN #5. 



Subject: Engineering Change Notice # 10. 

Product: Double D Disk Controller - QUME DATATRAK 8 DRIVES 

Revision: B and C boardsi Release 2 software 

Date: May 8* 1981. 

The following jumped options should be changed on the QUME 
DATATRACK 8 disk drive for use with the DOUBLE D disk controller. 



1. Remove programmable shunt from P. C. board socket. Bend pins 
Bi HL» and Z to prevent making contact. Replace shunt back 
into socket. 

2. Insert shunt plugs at locations C> DS» Y, and 2S. 

3. Please read and perform Engineering Change Notice # 5. It 
applies to QUME DATATRACK 8 as well as the SHUGART 
SA850/851. 



The following patch is required in DCM2. Location HID hex was 
OFB hex and should be changed to ODD hex. The new source code 
for this line is: 

TDL: ANI #<BC. DSE'BC. SDi) 

ASM: ANI NOT ( BC*DSE OR BC*SD1 ) 

Double D CP/M 2. 2 distributed after Nov 30, 1981 include this 
modification (starting with S/N 2-187-1410). 

ENJOY YOUR QUMES. 



TDL Z80 CP/M DISK ASSEMBLER VERSION 2.21 
DISK CONTROLLER MODULE (DCM2) 
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PROGRAM ID: DISK CONTROLLER MODULE * 

# 
VERSION: 2.2 8" RELEASE 2A # 

# 
JADE COMPUTER PRODUCTS INC. 
4901 W. ROSECRANS BLVD. 
HAWTHORNE, CALIFORNIA 
90250, U.S.A. 



PRESENTED BY: 



WRITTEN BY: STAN KRUMME # 

# 
#####**################################«■########*####* 

THE DISK CONTROLLER MODULE (DCM2) EXECUTES INTERNAL * 

TO THE JADE DOUBLE D DISK CONTROLLER BOARD. THIS * 

PROGRAM PROVIDES A FACILITY TO READ/WRITE DISKETTE # 

SECTORS AND FORMAT DISKETTE TRACKS (IN SINGLE AND * 

DOUBLE DENSITY). THIS DCM SETS THE PARAMETERS FOR # 
EACH DRIVE DURING THE "LOG-ON" OPERATION. THE 
F0RMAT.COM PROGRAM WRITES AN IDENTIFICATION SECTOR 

WHICH PROVIDES THE NEEDED INFORMATION. IF THIS # 

IDENTITY SECTOR IS NOT PRESENT ON THE DISKETTE, * 

IT IS ASSUMED TO BE A STANDARD 8" 3740 FORMAT. * 

THIS PROGRAM CONTAINS A 4 WORD TIMING BLOCK WHICH * 

SHOULD BE PATCHED TO MATCH THE USERS DISK DRIVES. * 

THIS HAS NORMALLY BEEN SET FOR SHUGART SA800/801. # 



DISK CONTROLLER MODULE IS COMMAND COMPATABLE WITH # 
THE FOLLOWING WESTERN DIGITAL CONTROLLER CHIPS. * 
DOUBLE D USER SWITCH (UO OR RO) MUST BE SET TO * 
INDICATE THE CONTROLLER CHIP DATA BUS POLARITY. * 

CONTROLLER IC USER SWO # 

# 

FD 179 1-02 <01) CLOSED # 

FD 1793-02 (01) OPENED # 

FD 1795-02 CLOSED * 

FD 1797-02 OPENED * 

#####*#####•«■##*########«• «•*###############■»###■»#■«• ###### 

THE FD 1795-02 AND FD 1797-02 PROVIDE ENHANCED SINGLE * 
DENSITY PERFORMANCE IN THAT THESE CHIPS ARE FULLY # 
COMPATABLE WITH FD 177 1-01 3740 FORMATS. * 
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; THE FOLLOWING IS A LIST OF THE INTERNAL I/O ADDRESS * 

; ASSIGNMENTS. THESE PORTS AND CONTROLS CAN ONLY BE # 

; USED BY THE ONBOARD ZSOA. THESE PORTS AND CONTROLS * 

? ARE NOT IN THE Si 00 BUS ADDRESS SPACE. # 

;##*####< CONTROLLER PORT ASSIGNMENTS )■*######■**#####*# 



0000 
0000 
0004 
0004 
0005 
0006 
0007 



BL.STS 
JBL. • Oil. 
WD.CMD 
WD.STS 
WD.TRK 
WD. SEC 
WD.DTA 



OOOH 5 BOARD STATUS PORT. 

OOOH 5 BOARD CONTROL PORT. 

004H S179X COMMAND REGISTER. 

004H ;179X STATUS REGISTER. 

005H 5 179X TRACK REGISTER. 

006H 5 179X SECTOR REGISTOR. 

007H 5 179X DATA REGISTER. 



;#*#**##( CONTROLLER FUNCTION ASSIGNMENTS >*##******##* 



0008 
0010 
0020 
0040 
0030 



XP.STP ===== 


008H 


XP.MTO == 


010H 


XP. IRR == 


020H 


XP.MTX ===== 


040H 


XP.DSH -» 


080H 



! ISSUE STEP PULSE. 
! MOTOR TURN OFF. 
5S100 INT-REQ RESET. 
; MOTOR TIME EXTEND. 
5 DATA SYNC HOLD. 



; THE FOLLOWING LIST ASSIGNS EACH BIT POSITION AND * 
! FUNCTION OF THE BOARD CONTROL PORT (BL.CTL). * 

;#####*#( BIT ASSIGNMENTS' >#######*########*-h-#####*#### 



0001 
0002 
0004 
0008 
0010 
0020 
0040 
0080 



BC.DSA == 0000000 IB ? DRIVE SELECT A <2#0). 

BC.DSB ===== 0000001 OB ; DRIVE SELECT B <2*1). 

BC.DSE ===== 00000 100B ; DRIVE SELECT ENABLE. 

BC.EIA ===== 00001000B ?EIA SIGNAL LEVEL OUT. 

BC.DDE === 00010000B 5 DOUBLE DENSITY ENABLE. 

BC.DAS == 00100000B DIRECTION AND SIDE 

BC.PCA ===== 01000000B JPRECOMP SELECT A. 

BC.PCB ===== 10000000B ; PRECOMP SELECT B. 



;######*( FUNCTION ASSIGNMENTS )#############■*#*•####### 



0003 
0000 
0010 
0040 
0030 
OOCO 
0020 
0020 



BC.DSN == 



BC. 
BC. 
BC. 
BC. 

BC. 



SDS 
DDS 
PCH 
, PCM 
,PCL 
BC.SD1 
BC. INW 



BC.DSA! BC.DSB 

O 

BC.DDE 

BC.PCA 

BC.PCB 

BC.PCA .'BC.PCB 

BC.DAS 

BC.DAS 



1 DRIVE NMBR MASK. 
; SINGLE DENSITY. 
5 DOUBLE DENSITY. 
5 PRECOMP - HEAVY. 
■PRECOMP - MEDIUM. 
? PRECOMP - LIGHT. 
5 SELECT SIDE ONE. 
■STEP INWARD DIRC. 



; ########*##########################################•«■## 
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; THE FOLLOWING LIST DEFINES EACH BIT AND FUNCTION OF # 
; THE BOARD STATUS PORT (BL.STS). * 



OOO 1 
0002 
0004 
0008 
0010 
0020 
0040 
0080 



BS.USO == 0000000 IB ; USER SWITCH O. 

BS.US1 == 0000001 OB ; USER SWITCH 1. 

BS.TST == 00000100B ; TEST MODE SWITCH. 

BS. INT == 00001000B ; HOST INT REQUEST. 

BS.EIA == 00010000B ;EIA SIGNAL LEVEL IN. 

BS.MOF == 00100000B ; MOTOR OFF INIDCATOR. 

BS.TSD == 01000000B ; TWO SIDED DRIVE FLAG. 

BS.DCN == 10000000B ;DISK CHANGE INDICATOR. 



; THE FOLLOWING IS A LIST OF COMMAND CODES ISSUED TO * 
; THE 179X-02 DISK CONTROLLER. * 



0018 
0010 
0088 
00A8 
OOFO 
OOCO 
OODO 
00D8 



DC. HDL 
DC.HDU 
DC.RDS 
DC.WRS 
DC.WRT 
DC.RDA 
DC.STS 
DC. IFI 



00011000B 
000 1 OOOOB 
10001000B 
10101000B 
11110000B 
1 1 OOOOOOB 
1101 OOOOB 
11011000B 



; SEEK/LOAD RW HEAD. 
;SEEK/UNLD RW HEAD. 
;READ SECTOR. 
? WRITE SECTOR. 
; WRITE TRACK FORMAT. 
?READ TRACK ADDRESS. 
,"SET TYPE 1 STATUS 
; FORCED INTERRUPT. 



; THE FOLLOWING LIST CONTAINS ALL THE MASKS USED TO * 
; TEST THE 179X-02 STATUS CODES (PORT WD.STS). * 



009D 
OOFD 
00E4 
0004 
0020 
0080 
0004 



DM.RER == 

DM.WER == 

DM.FER == 

DM. TKO == 

DM. HDL == 

DM.DNR == 

DM.LDE == 



10011101B 
11111101B 
11100100B 
00000 100B 
00100000B 
10000000B 
00000 100B 



;READ ERROR TEST. 
; WRITE ERROR TEST. 
; FORMAT ERROR TEST. 
; TRACK TEST. 
,"HEAD LOAD TEST. 
; DRIVE NOT READY. 
5L0ST DATA ERROR. 



; ###################*###■«■########«•###*•«•###•»■■»•##•»■»••«•##■»•##* 



TDL Z80 CP/M DISK ASSEMBLER 
DISK" CONTROLLER MODULE ( DCMi 
MEMORY ASSIGNMENTS 



VERSION 2.21 
:) 



PAGE 4 



; THE FOLLOWING LIST DEFINES INTERNAL MEMORY. # 



1000 



;•&#########< BASE ADDRESS FOR DCM )###############■«•###«• 
BASE === 1000H ; BASE ADDRESS. 



;####■«•■»•###•*( MEMORY BANKS )########•»■■»•##*•■*■*■«■###-*##■»•##•*•*# 



1000 
0400 
1400 



BANK.O = 
BANK.L = 
BANK. 1 ~ 



= BASE+OOOOH 

= 0400H 

= BANK.O+BANK.L 



;BANK DEFINED. 

;BANK LENGTH. 

5 BANK 1 DEFINED. 



5 #■*•&##### «■## ( RESTART VECTORS ) ######################## 



1000 
1008 
1010 
1018 
1020 
1028 
1030 
1038 



RST.O 


BANK.O+OOOOH 


! RESTART 





RST.l 


BANK.0+0008H 


; RESTART 


1 


RST.2 


== BANK. 0+001 OH 


; RESTART 


2 


RST.3 


BANK. 0+00 18H 


; RESTART 




RST.4 


== BANK.0+0020H 


5 RESTART 


4 


RST.5 


BANK.0+0028H 


; RESTART 


5 


RST.6 


BANK.0+0030H 


5 RESTART 


6 


RST.7 


BANK.0+0038H 


? RESTART 


7 



1038 
1066 



;##■«•«•#■»####( INTERRUPT VECTORS )##«■*####«•############## 



HR.INT == RST.7 

NM. INT =- BANK.0+0066H 



? MASKABLE. 
!NON MASKABLE. 



;###■*#•*•«•###( I/O COMMUNICATION )#####■*■»•###■*•*■«•■«•##■*##■«■## 



1370 
1370 
1370 
1330 
1700 
1708 



IO.BLK 
TP. STK 
CMD.BK 
BUF.BG 
FMT.BG 
FMT. PS- 



BANK. 0+0370H 
IO.BLK+OOOOH 
IO.BLK+OOOOH 
I0.BLK+0010H 
BANK. 1+0300H 
FMT.BG+0008H 



; I/O BLOCK BEGIN. 
;TOP OF STACK. 
? COMMAND BLOCK. 
; SECTOR BUFFER. 
; FORMAT BUFFER. 
? FORMAT PROGRAM. 



; #############################################*#•&#####* 
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? WAIT IS A "RESTART" TO THE TIMER SUBROUTINE ENTRY. * 
; THIS SUBROUTINE PROVIDES MOST OF THE TIMING USED BY * 
; THE DOUBLE D CONTROLLER. # 



.DEFINE 
RST 



WAIT = £ 
1 J 



; ASSEMBLER DIRECTIVES * 



, PABS 
,PHEX 
, XL INK 



? ABSOLUTE ADDRESS I NG . 
5 INTEL HEX OBJECT FILE. 
5NO LINKAGE REQUIRED. 



; TENTH MILLESECOND TIMING CONSTANTS / 0.2 MS FOR 5" * 



0019 
001C 



TMR.FC == 
TMR.NC == 



0Q19H -TIMING CONSTANT, FIRST PASS. 
001CH ; TIMING CONSTANT, REPEAT PASS. 



BAUD RATE GENERATOR - TIMING CONSTANTS 



BAUDRATE 


US/BIT 


8" SYS 


5 " SYS 




1 9200 


52. 1 


9 


N.A. 


■* 


9600 


104.2 


25 


9 


# 


4800 


208.3 


57 


25 


# 


2400 


416.6 


121 


57 


# 


1200 


333 ■ 3 


248 


121 


■ft 


600 


1666.6 


N.A. 


248 


■» 



##########*###*#################################*###*« 



0019 



BAUD.C == 



■BAUD RATE CONSTANT 9600 8". 



; ERROR RECOVERY VALUES * 



0005 
0009 



RTY.SK == 
RTY.LS == 



{REPOSITION R/W HEAD ON RETRY. 
;LAST REPEATED RETRY. 



001 A 
0034 



TRK.OB == 
TRK. IB == 



26 
52 



■AT FIRST THIRD TRACK OF DISK. 
,"AT SECOND THIRD TRACK. 



;########•»•»■####■»■»#«■#■«•############*#«■######•»########■»#, 
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THE FOLLOWING AREA IS THE INITIAL START JUMP TABLE. * 
THE FIRST JUMP IS EXECUTED WHEN THE ONBOARD ZSOA IS * 
RESET. THE SECOND JUMP IS THE DCM ENTRY FROM A * 
BOOTSTRAP LOADER. THIS ENTRY ASSUMES DCM HAS BEEN * 
LOADED INTO DOUBLE D BANK 1 BY THE LOADER ROUTINE. * 
THE LAST TWO BYTES HOLD THE JUMP ADDRESS USED BY * 
RESTART INTERRUPT ROUTINE AT BANK + 03S0H. # 



LOC 



RST.O 



1000 


C3 0000 




JMP 





1003 


C3 17S0 




JMP 


INIT.B+BANK.L 


1006 


1041 


HR.VEC: 


. WORD 


X . CUTE 



; module beginning. 

;not implemented. 
; bootstrapped entry. 
;host interrupt vector. 



THE FOLLOWING SUBROUTINE IS THE ENTRY POINT FOR THF * 
DISK CONTROLLER TIMING MODULE. THIS MODULE PROVII * 
DELAYS WHICH ARE MULTIPLES OF 100 MICROSECONDS. THE * 
CONTENTS OF REGISTER PAIR DE DETERMINES THE TOTAL * 
PERIOD. (DELAY = (DE )# 100 MICROSECONDS). THIS * 
SUBROUTINE IS ENTERED BY THE MACRO "WAIT". * 



1008 



1008 


0619 


100 A 


10FE 


100C 


C3 1074 



. LOC 



RST. 1 



B.TMR.FC 



MVI 

DJNZ 

JMP TICK.E 



; TIMING ENTRY POINT. 

; FIRST TICK CONSTANT. 
;AUTO DEC UNTIL ZERO. 
J JUMP TO TICK ENTRY. 



; THE FOLLOWING SECTION IS THE DISK DRIVE TIMING AREA.* 
5 THE TIMES ARE SET FOR THE SHUGART SASOO. THIS AREA * 
5 SHOULD BE MODIFIED FOR THE END USERS DRIVE TYPE. * 



1010 



1010 


015E 


TM.HLD: 


. WORD 


350 


1012 


0050 


TM.STP: 


.WORD 


80 


1014 


0050 


TM.ALS: 


. WORD 


80 


1016 


0001 


TM.MTO: 


. WORD 


1 



?#*#****( TIMING VALUES IN 0.1 MS )*#■*#*#*■*###■*#*###*#■* 
.LOC RST. 2 



5HEAD ENGAGE TIME. 
; STEPPER INTERVAL. 
! AFTER LAST STEP. 
; MOTOR START UP. 



;#####»####*###########*############*#########*######*# 
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THE FOLLOWING SUBROUTINE PROVIDES THE R/W HEAD CNTL * 
FUNCTION. AS THE FD179X-02 DOES NOT OFFER THIS # 
EXPLICIT COMMAND, THE SEEK COMMAND (TYFE-1) IS USED * 
WITH THE HEAD LOAD BIT SET / RESET. THE DESTINATION # 
TRACK IS SET EQUAL TO THE TRACK REGISTER TO BYPASS # 
THE FD179X-02 STEPPING FUNCTION. PLEASE REFER TO * 
THE FD179X-02 FLOW-CHART FOR TYFE-1 COMMANDS. * 



1018 


FDE1 


EX. 


HCF: 


POP 


Y 


101A 


DB05 






IN 


WD.TRK 


101C 


D307 






OUT 


WD.DTA 


101E 


78 






MOV 


A,B 


101F 


A9 






XRA 


C 


1020 


D304 






OUT 


WD.CMD 


1022 


18FE 






JMPR 





; RETURN ADDR IN REG Y. 
5 READ PRESENT TRACK. 

?set destination trk. 
;load type-i command. 

; INVERT (1791-01). 
? ISSUE COMMAND. 
5WAIT FOR INTERRUPT. 



5 THE FOLLOWING SUBROUTINE UPDATES THE FD179X-02 * 

5 STATUS PORT TO REFLECT CURRENT TYPE-1 STATUS CODES. * 

; NOTE: THIS IS A TYPE-4 COMMAND WITH NO INTERRUPT * 

? CONDITIONS SET. * 



1024 


3ED0 


EX.STS: MVI 


A.DC.STS 


5L0AD SET-STATUS CMND 


1 026 


A9 


XRA 


C 


? INVERT (1791-01). 


1027 


D304 


OUT 


WD.CMD 


; ISSUE COMMAND. 


1029 


E3 


XTHL 




; PAUSE FOR FD179X-02. 


102A 


do 


XTHL 




? PAUSE MORE. 


102B 


E3 


XTHL 




; PAUSE STILL MORE. 


102C 


E3 


XTHL 




5 PAUSE LAST TIME. 


102D 


DB04 


IN 


WD.STS 


; INPUT STATUS PORT. 


102F 


A9 


XRA 


C 


; INVERT (1791-01). 


1030 


C9 


RET 




; RETURN TO USER. 



; THE FOLLOWING SECTION IS THE MASKABLE INTERRUPT # 

? ROUTINE. THIS ROUTINE IS EXECUTED WHEN RESTARTING * 

; THE ZSO FROM A HALT. THE FUNCTIONS ARE RESET THE * 

5 DOUBLE D INT REQ FLIP-FLOP, PUT THE INTERRUPTED * 

! ADDR IN REG DE, AND JUMP ADDRESS AT "HR.VEC". # 



1038 




1038 


DB; 


103A 


Dl 


103B 


2A 


103E 


E9 



:u 



1006 



. LOC 


HR. INT 


IN 


XP. IRR 


POP 


D 


LHLD 


HR.VEC 


PCHL 





;HOST INTERRUPT ADDR. 
? RESET INTERRUPT REQ FF 
; PURGE INTERRUPTED ADDR 
5L0AD RETURN ADDRESS 
SJUMP RETURN ADDRESS 



; ###############*#*######*#*#########«■#*■«■*#•«•#•«•#•{(•«•«■#•«.«• 



TDL Z80 CF/M DISK ASSEMBLER VERSION 2.21 
DISK CONTROLLER MODULE (DCM2) 
-OMMAND FETCH AND BRANCH 



PAGE 8 



? THE FOLLOWING SECTION HALTS EXECUTION OF THE # 

5 ONBOARD Z80A PROCESSOR. DURING THIS TIME THE HOST * 

5 SYSTEM CAN SWITCH THE CONTROLLER MEMORY INTO THE # 

? SI 00 BUS FOR STATUS CHECK, SETTING COMMAND BLOCK, * 

? AND SECTOR DATA TRANSFERS. # 



103F 
1040 



FB 
76 



FETCH! 



EI 
HLT 



? enable interrupt start 
;halt on-board processor 



; THE FOLLOWING SECTION GAINS CONTROL AFTER THE DISK # 

; CONTROLLER IS INTERRUPTED FROM THE HALT CONDITION. # 

; THIS SECTION BRACNCHES TO THE INDIVIDUAL COMMAND # 

? ROUTINES. THE COMMAND TABLE CONTAINS THE ADDRESSES * 

5 FOR THIS DISTRIBUTION. * 



1041 


3A 


13 


:70 


X.CUTE: LDA 


CB.CMD 


1044 


E607 




AN I 


CM.MSK 


1046 


87 






ADD 


A 


1047 


1600 




MVI 


D,0 


1049 


5F 






MOV 


E,A 


104 A 


21 


1053 


LXI 


H,CM.DTA 


104D 


19 






DAD 


D 


104E 


5E 






MOV 


E,M 


104F 


23 






INX 


H 


1050 


56 






MOV 


D,M 


1051 


EB 






XCHG 




1052 


E9 






PCHL 





lLOAD HOST COMMAND. 
iMASK ANY OPTIONS. 
IGET 2*A VALUE. 
iZERO D REGISTER. 
IDE NOW TABLE OFFSET. 

LOAD TABLE ADDRESS, 
i NOW POINTS TO ENTRY. 

LOW ORDER ADDR LOAD. 

POINT TO NEXT BYTE. 

HI ORDER ADDRESS. 

BRANCH ADDR IN HL. 

BRANCH TO COMMAND. 



5 THE FOLLOWING AREA IS THE COMMAND DRIVER TABLE. * 
5 EACH ENTRY POINTS TO THE COMMAND DRIVER ROUTINE. * 



1053 



1053 


10AC 


1055 


107C 


1057 


108A 


1059 


1098 


105B 


10C7 


105D 


10CF 


105F 


10D5 


1061 


10E4 



0007 



CM.DTA 


rsrs 


■ 


. . CMOA : 


.WORD 


*.LGON 


. .CM1A: 


.WORD 


*.READ 


. .CM2A: 


.WORD 


*.WRIT 


. .CM3A: 


.WORD 


*.FORM 


. .CM4A! 


.WORD 


*.ADDR 


. .CM5A: 


. WORD 


*.LIST 


..CM6A: 


.WORD 


*.LSTT 


. .CM7A: 


.WORD 


*. IDLE 


CM.MSK 


== 


007H 



? command table. 

5 log-on drive. 
5read sector. 
5 write sector. 
5 format track. 
5read address. 
5list output. 
;list status. 
; background. 

; command mask. 



; ################################*##################### 
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; THE FOLLOWING SECTION IS THE NON-MASKABLE INTERRUPT # 

; ROUTINE. UPON 179X-02 COMMAND TERMINATION THE 280 * 

; RECIEVES A NON-MASKABLE INTERRUPT. THE STATUS PORT * 

; IS INTERROGATED AND SAVED (SV.STS). REGISTER IY # 

; CONTAINS THE RETURN ADDRESS. * 



1066 



.LOC 



NM. INT 



; NON-MASKABLE INT. 



1066 


DB04 


1068 


A9 


1069 


32 1334 


106C 


FDE3 


106E 


ED45 



WD. INT: 



IN 

XRA 

STA 

XTIY 

RETN 



WD.STS 

C 

SV.STS 



?GET 179X STATUS. 
5 INVERT (1791). 
;SAVE STATUS. 
; EXCHANGE (SP)OIY. 
; RETURN AT OLD IY. 



; THIS SECTION IS THE REMAINDER OF THE TIMING # 

5 SECTION ENTERED BY A RESTART 1. SEE THAT SECTION # 
? FOR THE DESCRIPTION. * 



1070 


06 1C 


TICK.R: 


MVI 


B,TMR.NC 


1072 


10FE 




DJNZ 


■ 


1074 


IB 


TICK.E: 


DCX 


D 


1075 


7A 




MOV 


A,D 


1076 


B3 




ORA 


E 


1077 


00 




NOP 




1078 


00 




NOP 




1079 


20F5 




JRNZ 


TICK.R 


107B 


C9 




RET 





; NORMAL TICK CONSTANT. 
5AUT0 DEC UNTIL ZERO. 
; DECREMENT AMOUNT. 
5GET HIGH ORDER. 
;AND LOW ORDER. 
; TIMING ADJUST. 
; TIMING ADJUST. 
; REPEAT UNTIL ZERO. 
; RETURN TO USER. 



; ########################•»################■«■#########•»## 
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S.READ IS THE READ-SECTOR COMMAND CONTROLLER. * 



107C 


CD 10EF 


*.READ: CALL 


SELECT 


107F 


CD 1131 


CALL 


SEEK 


1082 


2003 


JRNZ 


..EXIT 


1084 


CD 1204 


CALL 


RD. SEC- 


1087 


C3 103F 


..EXIT: JMP 


FETCH 



; SELECT DRIVE ROUTINE. 
5SEEK TRACK, SET CTLS. 
; DRIVE OR SEEK ERROR. 
;READ DISK SECTOR. 
5GET NEXT COMMAND. 



*.WRIT IS THE WRITE-SECTOR COMMAND CONTROLLER. * 



103A 


CD 10EF 


*.WRIT: CALL 


SELECT 


108D 


CD 1131 


CALL 


SEEK 


1090 


2003 


JRNZ 


..EXIT 


1092 


CD 122F 


CALL 


WR. SEC 


1095 


C3 103F 


..EXIT: JMP 


FETCH 



; SELECT DRIVE ROUTINE. 
;SEEK TRACK, SET CTLS. 
; DRIVE OR SEEK ERROR. 
! WRITE DISK SECTOR. 
?GET NEXT COMMAND. 



*.FORM IS THE FORMAT-TRACK COMMAND CONTROLLER. * 



1098 


CD 10EF 


*.FORM: 


CALL 


SELECT 


109B 


3A 1373 




LDA 


CB.SEC 


109E 


DD7702 




MOV 


DV.FLG(X),A 


10A1 


CD 1131 




CALL 


SEEK 


10A4 


2003 




JRNZ 


..EXIT 


10A6 


CD 125A 




CALL 


WR.TRK 


10A9 


C3 103F 


..EXIT: 


JMP 


FETCH 



? SELECT DRIVE NUMBER. 
;LOAD FORMAT FLAGS. 
; RESET DRIVE FLAGS. 
;SEEK TRACK, SET CTLS. 
? DRIVE OR SEEK ERROR. 
; WRITE DISK TRACK. 
JGET NEXT COMMAND. 



S.LGON IS THE DRIVE LOG-ON COMMAND CONTROLLER * 



10AC 


CD 10EF 


*.LGON: 


CALL 


SELECT 


10AF 


AF 




XRA 


A 


10B0 


32 1372 




STA 


CB.TRK 


10B3 


3C 




INR 


A 


10B4 


32 1373 




STA 


CB.SEC 


10B7 


CD 1131 




CALL 


SEEK 


10BA 


2008 




JRNZ 


. .EXIT 


10BC 


CD 1204 




CALL 


RD.SEC 


10BF 


2003 




JRNZ 


..EXIT 


10C1 


CD 12D7 




CALL 


LOG. ON 


10C4 


C3 103F 


. .EXIT: 


JMP 


FETCH 



SELECT DRIVE NUMBER. 

ZERO REGISTER A. 

SET TRACK AT 0. 

NOW A REG IS 1. 

SET SECTOR TO ID. 
:SEEK TRACK, SET CTLS. 

DRIVE OR SEEK ERROR. 
:READ ID SECTOR. 
:READ ERROR DETECTED. 
ILOG ON DISK DRIVE. 
:GET NEXT COMMAND. 



; ##########*##########■»•#################*##»##*##*#**## 
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? *.ADDR IS THE RE AD- ADDRESS COMMAND CONTROLLER. ♦ 



10C7 


3EFF 


*.ADDR: 


MVI 


A.OFFH 


10C9 


32 1377 




STA 


CB.STS 


10CC 


C3 103F 




JMP 


FETCH 



?LOAD ALL ONES. 
5 STORE ERRORS. 
;NOT IMPLEMENTED. 



; *. LIST IS A LIST DEVICE COMMAND CONTROLLER. # 



10CF 


CD 12F4 


*.LIST: CALL 


LST.OT 


10D2 


C3 103F 


JMP 


FETCH 



;SEND CHAR TO LIST 
5 GET NEXT COMMAND. 



*.LSTT CHECKS LIST DEVICE STATUS * 



10D5 


DBOO 


*.LSTT: IN 


BL.STS 


10D7 


E610 


AN I 


BS.EIA 


10D9 


CA 10DE 


JZ 


..EXIT 


10DC 


3EFF 


MVI 


A,OFFH 


10DE 


32 1377 


..EXIT: STA 


CB.STS 


10E1 


C3 103F 


JMP 


FETCH 



?GET BOARD STATUS. 
5 TEST READY BIT. 
;IF ZERO GOTO EXIT 
5 LOAD ALL ONES. 
; STORE STATUS. 
;GET NEXT COMMAND. 



*.IDLE IS THE IDLE COMMAND CONTROLLER. * 



10E4 


DBOO 


*. IDLE: 


IN 


BL.STS 


10E6 


E608 




AN I 


BS. INT 


10E8 


28FA 




JRZ 


*. IDLE 


10EA 


DB20 




IN 


XP. IRR 


10EC 


C3 103F 




JMP 


FETCH 



? INPUT BOARD STATUS. 
; CHECK HOST INTERRUPT. 
; REPEAT IDLE CHECK. 
5 RESET INTERRUPT REQ. 
5 GET NEXT COMMAND. 



; ####################################################•«■■& 
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; THE FOLLOWING SUBROUTINE SELECTS REQUESTED DRIVE * 

? NUMBER 0-3 (A-D). BEFORE DRIVE SELECTION, THE DRIVE * 

? MOTOR CONTROL STATE IS TESTED AND ENABLED IF NEEDED.* 

; INDEX REGISTER X IS SET POINTING TO THE REQUESTED # 

; DRIVE TABLE ENTRY. THE DRIVE IS THEN SELECTED. * 

;#■*#####( MOTOR CHECK ROUTINE )##■&###################** 



10EF 


DBOO 


10F1 


E620 


10F3 


DB40 


10F5 


2805 


10F7 


ED5B 


10FB 


CF 



1016 



CT: IN 


BL.STS 


AN I 


BS.MOF 


IN 


XP.MTX 


JRZ 


. . CKDV 


LDED 


TM.MTO 


WAIT 





; BOARD LEVEL STATUS. 
; CHECK MOTOR STATE. 
; START OR EXTEND TIMER. 
; IF WAS ON, NO STARTUP. 
; MOTOR STARTUP DELAY. 
; PROGRAMMABLE DELAY. 



;#######( NEW SELECTION CHECK )##*###########■*#■»■■»■•**#■«•#•»• 



10FC 


3A 1371 


..CKDV: 


LDA 


CB.DRV 


10FF 


E603 




AN I 


BC.DSN 


1101 


DDBEOO 




CMP 


DV.NBR(X) 


1104 


C8 




RZ 





■LOAD DRIVE NUMBER. 
?GET DRIVE NUMBER. 
? CURRENTLY SELECTED? 
; RETURN IF DRV SAME. 



;■«•##•«■■«•■«•#< SET TABLE POINTER )###################■»■»■##### 



1105 


DD21 1342 


LXI 


X,DV.TBL 


1109 


11 0004 


LXI 


D,DV.DES 


HOC 


3D 


..NEXT: DCR 


A 


HOD 


FA 1114 


JM 


. . DSLT 


1110 


DD19 


DADX 


D 


1112 


18F8 


.JMPR 


. .NEXT 



! DRIVE TABLE ADDR. 
; DRIVE ENTRY SIZE. 
; DECREMENT DRV NO. 
5 IF S=l EXIT. 
; POINT NEXT DRIVE. 
;TRY THIS DRIVE. 



;#######( DESELECT OLD DRIVE )##*#*«•#■«■##■«■##■»#«■«•##■«■#■»•### 



1114 
1116 
1119 
111C 
HIE 



0610 
CD 1018 
3A 1333 
E6FB 
D300 



DSLT: 



MVI 


B,DC.HDU 


CALL 


EX.HCF 


LDA 


SV.CTL 


AN I 


#BC.DSE 


OUT 


BL.CTL 



,'LOAD UNLOAD R/W HEAD. 
;FD179X-02 TYPE 1 CMND. 
; BL.CTL LAST ISSUED. 
; DRIVE SELECT DSBLD. 
; ISSUE DESELECT. 



;####*#■«•( SELECT NEW DRIVE )######•»#*####•»■###■»##■«■#*#*## 



1120 


E6FC 


1122 


DDB600 


1125 


D300 


1127 


F604 


1129 


D300 


112B 


E607 


U2D 


32 1331 


1130 


C9 



AN I 


#BC.DSN 


ORA 


DV.NBR(X) 


OUT 


£*L~ h %-• 1 L— 


OR I 


BC.DSE 


OUT 


BL.CTL 


ANI 


BC.DSN! BC.DSE 


STA 


SV.DRV 


RET 





; STRIP OFF DRIVE NMBR. 
;0R IN NEW DRIVE NMBR. 
! OUTPUT DRIVE NMBR. 
;SET DRV ENABLE BIT. 
5 ENABLE NEW DRIVE. 
SNOW JUST DRIVE ENBLED. 
5SAVE DRIVE SELECT. 
5 DRIVE IS SELECTED. 



! ##############*#################*##############■«■■»■«■#■«•## 
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; THE FOLLOWING SUBROUTINE PERFORMS THE TRACK SEEK # 
; OPERATION. AFTER THE SEEK OPERATION, THE DENSITY * 
;-AND PRE-COMPENSATION CONTROLS ARE SET. # 

;#■»#####( HEAD LOADING )########*•###########■*########■*# 



1131 


CD 1024 


1134 


E6A0 


1136 


FA 1174 


1139 


C2 1146 


113C 


06 IS 


113E 


CD 1018 


1141 


ED5B 1010 


1145 


CF 



>EEK: 



CALL 


EX.STS 


AN I 


DM.HDLIDM.DNR 


■JM 


. . NRDY 


JNZ 


. . DTAS 


MVI 


B, DC. HDL 


CALL 


EX.HCF 


LDED 


TM.HLD 


WAIT 





;get drive status. 
; check head and ready. 
? drive not ready exit. 
; bypass if head loaded. 
! head-load command. 
?exec fd179x-02 type 1. 

?SET HEAD-LOAD DE[LAY. 
PROGRAMMABLE DELAY. 



;#######( DETERMINE TRACK NMBR AND SIDE >#*##*•##«•####*# 



1146 


DBOO 


1148 


E640 


114A 


3A 1372 


114D 


6F 


114E 


C2 1152 


1151 


IF 


1152 


32 1335 


1155 


67 


1156 


3A 1331 


1159 


3002 


115B 


F620 


115D 


32 1332 


1160 


57 


1161 


7C 


1162 


DD9601 


1165 


2021 


1167 


DBOO 


1169 


E640 


116B 


CA 117B 



DTAS 



NDBL = 



3 1 DO! 



IN 


BL.STS 


AN I 


BS.TSD 


LDA 


CB. TRK 


MOV 


L,A 


JNZ 


. . NDBL 


RAR 




STA 


PH. TRK 


MOV 


H,A 


LDA 


SV.DRV 


JRNC 


. .SIDO 


OR I 


BC.SDl 


STA 


SV.DAS 


MOV 


D,A 


MOV 


A,H 


SUB 


DV.TRK<X) 


JRNZ 


. . SEEK 


IN 


BL.STS 


ANI 


BS.TSD 


JZ 


. .DSID 



INPUT BOARD STATUS. 
TEST DISK SIDES FLAG. 
GET LOGICAL TRACK NO. 
SAVE LOGICAL TRACK. 
SKIP IF NOT DEL SIDED 
DIV BY 2 DOUBLE SIDE 
STORE PHYSICAL TRACK. 
SAVE PHYSICAL NUMBER. 
LOAD DRV NMBR ENABLED. 
SKIP NEXT IF SIDE 0. 
OR IN SELECT SIDE 1. 
STORE DRV AND SIDE EN. 
SAVE DRV AND SIDE EN. 
LOAD PHYSICAL NUMBER. 
TRACK OFFSET TESTED. 
IF OFFTRACK, DO SEEK. 
INPUT BOARD STATUS. 
TEST DISK SIDES FLAG 
GOTO DOUBLE SIDE CTL. 



;##■»####( SINGLE SIDED DISKETTE )#*■«•***######■«■#####■«•«•## 



116E 
1171 



DD7E03 
C3 11EA 



SSID: MOV 
JMP 



A,DV.CTL(X) 
..EXIT 



5GET PREVIOUS CONTROLS. 
;SET CONTROLS / EXIT. 



;#######( DRIVE NOT READY EXIT )#■»##■»■»■■«•############*### 



1174 


3E80 


..NRDY: MVI 


A,CS.DNR 


1176 


32 1377 


STA 


CB.STS 


1179 


A7 


ANA 


A 


117A 


C9 


RET 





; DRIVE NOT READY FLAG. 
; STORE ERROR STATUS. 
;SET NOT ZERO FLAG. 
; ERROR EXIT. 



5###########################*###*-«-#*###########-lt*####» 7 
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;#######( DI 


SKETTE IS DOUBL 


117B 


7C 


..DSID: MOV 


A,H 


117C 


A7 


ANA 


A 


117D 


283B 


•JRZ 


. . DCTL 


U7F 


DD7E03 


MOV 


A,DV.CTL(X) 


1182 


E6DF 


AN I 


#BC.SD1 


1184 


B2 


ORA 


D 


1185 


C3 11EA 


JMP 


. .EXIT 



lED ) ###-H"H"H-###-H"&######## 

;get physical trk nmbr. 
;test if track zero. 
; IF ZERO, reset cntls. 
5LOAD OLD DRV CTLS. 
; STRIP OFF SIDE CMND. 
;OR IN NEW SIDE CMND. 
;SET CONTROLS / EXIT. 



;####•»#•*< SET DIRECTION AND COUNT STEPS )####*##■»•#####* 



1188 


F5 


. .SEEK: 


PUSH 


PSW 


1189 


ED5B 1338 




LDED 


TM.SAW 


11SD 


CF 




WAIT 




118E 


Fl 




POP 


PSW 


118F 


380A 




JRC 


. . SOUT 


1191 


6F 


. .SIN: 


MOV 


L,A 


1192 


3A 1331 




LDA 


SV.DRV 


1195 


F620 




OR I 


BC. INW 


1197 


D300 




OUT 


BL.CTL 


1199 


180B 




JMPR 


. . STEP 


119B 


ED44 


. .SOUT: 


NEC 




119D 


FA 11FD 




JM 


. . HOME 


11AO 


6F 




MOV 


L,A 


11A1 


3A 1331 




LDA 


SV.DRV 


UA4 


D300 




OUT 


BL.CTL 


11A6 


DB08 


. .STEP: 


IN 


XP.STP 


11A8 


ED5B 1012 




LDED 


TM.STP 


11 AC 


CF 




WAIT 




HAD 


2D 




DCR 


L 


11AE 


20F6 




JRNZ 


. . STEP 


HBO 


3A 1332 




LDA 


SV.DAS 


11B3 


D300 




OUT 


BL.CTL 


11B5 


ED5B 1014 




LDED 


TM.ALS 


11B9 


CF 




WAIT 





5save reg a and flgs. 
5step after write. 
; programmable delay. 
; restore a and flgs. 
j if carry step out. 
;move offset to l. 
? drive select bits. 
?set step dirc in. 
? output control. 
?goto step routine. 
; complement offset. 
; better home drv. 
5m0ve offset to l. 
; drive select bits. 
?set direction out. 
? issue step pulse. 
5step delay time, 
programmable delay. 
; decrement steps. 
? repeat operation. 
;load drv and side. 
? output control. 
5m0re after last stp. 
{programmable delay. 



; ####################################################•«•# 
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*##■?(■##■*( CONTROL DETERMINATION )##•«•##■«•#-*■#########•«•#### 



11BA 


OH lo/i 


11BD 


FECI 


11BF 


3820 


11C1 


3E04 


11C3 


C2 1 1 CS 


11C6 


3E02 


11C8 


DDA602 


11CB 


CA 11E1 


11CE 


3 A 1335 


11D1 


FE1A 


11D3 


06D0 


11D5 


380C 


11D7 


FE34 


11D9 


0690 


11DB 


3806 


HDD 


0650 


11DF 


1802 



11E1 



06C0 



11FD 


CD 


12A6 


1200 


CO 




1201 


C3 


1146 



DCTL: 



DTST: 



.DDEN: 



.SDEN: MVI 



LOAD LOGICAL TRACK. 
COMPARE AGAINST 1. 
TRACK O IS SDENS. 
DATA TRK DENS FLG. 
GOTO TEST DENSITY. 
TRACK 1 DENS FLAG. 
TEST DENSITY FLAGS. 
IF ZERO, THEN SDENS. 
LOAD PHYSICAL TRACK. 
TEST OUTSIDE BOUNDRY. 
DDENS AND LOW PRECOMP. 
SET FOR OUTSIDE TRKS. 
TEST INSIDE BOUNDRY. 
DDENS AND MED PRECOMP. 
JUMP TO CONTROLS SET. 
DDENS AND MAX PRECOMP. 
JUMP TO CONTROLS SET. 



B,BC.SBS!BC.PCL ; SDEN AND PC-LOW. 



LDA 


CB.TRK 


CPI 


1 


JRC 


. . SDEN 


MVI 


A,DF.DTD 


JNZ 


. . DTST 


MVI 


A,DF.T1D 


ANA 


DV.FLG(X) 


JZ 


. . SDEN 


LDA 


PH. TRK 


CPI 


TRK. OB 


MVI 


B,BC.DDS!BC.PCL 


JRC 


. . CTLS 


CPI 


TRK. IB 


MVI 


B,BCDDS!BC.PCM 


JRC 


. . CTLS 


MVI 


B,BC.DDS!BC.PCH 


JMPR 


. .CTLS 



;###■»###( SET CONTROL VALUES AND EXIT )####■*####»###•«■## 



11E3 


3A 1332 


..CTLS: 


LDA 


SV.DAS 


11E6 


BO 




ORA 


B 


11E7 


DD7703 




MOV 


DV.CTL(X),A 


11EA 


D300 


..EXIT." 


OUT 


BL.CTL 


11 EC 


32 1333 




STA 


SV.CTL 


11EF 


3A 1335 




LDA 


PH. TRK 


11F2 


DD7701 




MOV 


DV.TRK(X),A 


11F5 


3A 1372 




LDA 


CB.TRK 


11F8 


A9 




XRA 


C 


11F9 


D305 




OUT 


WD. TRK 


11FB 


AF 




XRA 


A 


HFC 


C9 




RET 





'GET DRIVE AND SIDE. 

SET PRECOMP AND DENS. 

SAVE CONTROLS FOR DRV. 

OUTPUT CONTROLS. 

SAVE THESE CONTROLS. 

PHYSICAL TRACK NMBR. 

SET DRIVE TABLE. 

LOGICAL TRACK NMBR. 
: INVERT (1791-01). 

SET TRACK REGISTER. 
:SET ZERO FLAG. 

RETURN TO CALLER. 



;###*###( CALIBRATE TRACK NUMBER )##■»*#*###**«■#«■#•«•*###* 
..HOME." CALL HOME.D 

..DTAS 



CALL 

RNZ 

JMP 



;home selected drive, 
"exit seek, home bad. 
;now seek track. 



#*#####################################*#-((■############ 
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5 RD.SEC IS THE SUBROUTINE THAT INTERACTS WITH THE * 

? 179X-Q2 DURING READ SECTOR OPERATIONS. THIS SECTION * 

; INITIATES THE DISK TRANSFER, SERVICES THE CONTROLLER* 

? CHIP DURING DATA TRANSFER, AND TERMINATES OPERATION * 

? WHEN FINISHED. ERROR DETECTION IS IMPLEMENTED AND # 

? RETRIES ARE EXRCUTED IF DATA ERRORS ARE DETECTED. * 

;#####*#( INITIALIZE READ OPERATION )##*###**######*### 



1204 


AF 


RD.SEC: 


XRA 


A 


1205 


32 1330 




STA 


ERR.CT 


1208 


3A 1373 




LDA 


CB.SEC 


120B 


A9 




XRA 


C 


120C 


D306 




OUT 


WD. SEC 


120E 


FD21 1223 


..RTRY: 


LXI 


Y,. .NMI 


1212 


2A 132E 




LHLD 


BUF, ST 


1215 


3E88 




MVI 


A,DC.RDS 


1217 


A9 




XRA 


C 


1218 


D304 




OUT 


WD.CMD 



:ZERO A REGISTER. 
:ZERO ERROR COUNT. 

LOAD SECTOR NMBR. 
: INVERT (1791-01). 

SET SECTOR REGISTER. 
:LOAD NMI VECTOR. 
■ BUFFER START. 
IREAD SECTOR COMMA 
: INVERT (1791-01). 
: ISSUE READ COMMAND 



;#•*##■»##( DATA TRANSFER LOOP )########•«•###■«■#•»•#####•«■#### 



121A 


DB80 


..REPT: 


IN 


XP.DSH 


121C 


DB07 




IN 


WD.DTA 


121E 


A9 




XRA 


C 


121F 


77 




MOV 


M,A 


1220 


23 




INX 


H 


1221 


18F7 




JMPR 


. . REPT 






;**■*##*#( CHECK 


STATUS 


1223 


E69D 


. .NMI: 


AN I 


DM.RER 


1225 


32 1377 




STA 


CB.STS 


1228 


CS 




RZ 




1229 


CD 1279 




CALL 


CHK.RT 


122C 


28E0 




•JRZ 


. . RTRY 


122E 


C9 




RET 





;hold for data 
5 input data. 

; INVERT (1791-01). 
?PUT INTO BUFFER 
;BUMP BUFF POINTER 
,"G0 FOR ANOTHER 

)########■&####•*################# 

;TEST FOR ERRORS. 
5SAVE READ STATUS. 
? RETURN COMPLETE. 
? CHECK ABOUT RETRYS. 
■ PERFORM RETRY. 
; ERROR RETURN. 



; ########4t###############*####################*######## 
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? WR.SEC SUBROUTINE INTERACTS WITH THE FD179X-02 # 

; DURING WRITE SECTOR OPERATIONS. THIS SECTION # 

; INITIATES THE DISK TRANSFER, SERVICES THE CONTROLLER* 

; CHIP, AND TERMINATES THE OPERATION. ERROR DETECTION * 

; IS IMPLEMENTED. * 

;*#####*( INITIALIZE WRITE OPERATION )***•*•*•###*•***##*#* 



122F 


AF 




WR.SEC: 


XRA 


A 


1230 


32 13 


130 




STA 


ERR.CT 


1233 


3A 1373 




LDA 


CB.SEC 


1236 


A9 






XRA 


C 


1237 


D306 






OUT 


WD. SEC 


1239 


FD21 


124E 


. .RTRY: 


LXI 


Y,. .NMI 


123D 


2A 13 


:2E 




LHLD 


BLIF.ST 


1240 


3EA8 






MVI 


A,DC.WRS 


1242 


A9 






XRA 


C 


1243 


D304 






OUT 


WD.CMD 








;#####*#( DATA 


TRANSFER 


1245 


DB30 




..REPT: 


IN 


XP.DSH 


1247 


7E 






MOV 


A,M 


1248 


A9 






XRA 


C 


1249 


D307 






OUT 


WD.DTA 


124B 


23 






INX 


H 


124C 


LSF7 






JMPR 


. . REPT 



;zero register. 
?set error counter. 
;load sector nmbr. 

! INVERT (1791-01). 

;SET SECTOR REGISTER. 

?SET NMI RETURN. 

; BUFFER START. 

?LOAD WRITE SECTOR CMD. 

? INVERT (1791-01). 

; ISSUE COMMAND. 

LOOP ) ft************************ 

5H0LD FOR DATA REQ. 

;GET DATA BYTE. 

; INVERT (1791-01). 

; OUTPUT DATA BYTE. 

? INCREMENT BUFF POINTER 

; REPEAT SEQUECE 



#######( CHECK STATUS )****#****###*###*#************* 



124E 


E6FD 


1250 


32 1377 


1253 


CS 


1254 


CD 1279 


1257 


2SE0 


1259 


C9 



..NMI: 



AN I 


DM.WER 


STA 


CB.STS 


RZ 




CALL 


CHK.RT 


JRZ 


. . RTRY 


RET 





5 TEST FOR WRITE ERRORS. 

; STORE WRITE STATUS. 

; RETURN COMPLETE. 

? CHECK ABOUT RETRYS. 

; PERFORM RETRY. 

5 ERROR RETURN. 



; *#####**###•»###########■«•###■»•■»■###############♦######### 
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; WR.TRK IS THE SUBROUTINE WHICH INITIATES A FORMAT * 
; TRACK COMMAND (WRITE-TRACK 179X-02 TYPE 3). THE * 
? FORMATTING BYTE STREAM IS PROVIDED BY A PROGRAM * 
; WHICH MUST BE PRESENT IN THE FORMAT BUFFER. # 

;########*###*###########*#####•«•######•«•■«•##**•«•*********■* 

; •*##■»•*#■* ( INITIALIZE WRITE TRACK )#####**###*##■*■**####* 



125A 
125E 
1260 
1261 
1263 



FD21 1266 

3EF0 

A9 

D304 

C3 1708 



WR.TRK: 



LXI 
MVI 
XRA 
OUT 
JMP 



Y» . .NMI 

A,DC.WRT 

C 

WD.CMD 

FMT.PS 



iLQAD NMI VECTOR. 
? WRITE TRACK CMND. 
? INVERT (1791-01). 
5 ISSUE COMMAND. 
; FORMAT PROG START. 



;######*( CHECK COMPLETION STATUS )**#*##***#****#*##** 



1266 


E6E4 


1268 


47 


1269 


DBOO 


126B 


E640 


126D 


78 


126E 


2002 


1270 


F601 


1272 


32 1377 


1275 


22 137A 


1278 


C9 



NMI 



EXIT: 



AN I 

MOV 

IN 

AN I 

MOV 

JRNZ 

OR I 

STA 

SHLD 

RET 



DM.FER 

B,A 

BL.STS 

BS.TSD 

A,B 

..EXIT 

CS.TSD 

CB.STS 

CW.LNG 



TEST FOR ERRORS. 

HOLD THIS STATUS. 

INPUT BOARD STATUS. 
:TEST TWO SIDED BIT. 

RESTORE STATUS TO A. 
:NOT ZERO IS ONE SIDED. 
!0R IN TWO SIDED FLAG. 
! STORE FORMAT STATUS. 
! DISPLAY TRAIL BYTES. 
! RETURN TO USER. 



;#############*#*############*###*#**##**####****# # #** # 



TDL ZSO CP/M DISK ASSEMBLER VERSION 2. 
DISK CONTROLLER MODULE (DCM2) 
RETRY CONTROLLER 



PAGE 1? 



; CHK.RT IS THE SUBROUTINE USED BY RD.SEC AND * 

? WR.SEC TO COUNT RETRY OPERATIONS AND PERFORM A # 
5 RE-SEEK OPERATION WHEN NEEDED. # 

; #*########*#*#######«##*##############*####•«■##«.»**##-){.# 

;##-h-####< CHECK IF RECOVERABLE )####*#*#####*#########* 



1279 


E680 


CHK 


. RT." 


ANI 


DM.DNR 


127B 


2028 , 






JRNZ 


. .EXIT 


127D 


3A 1376 






LDA 


CB.MOD 


1280 


E680 






ANI 


CM.NRT 


12S2 


2021 






JRNZ 


. .EXIT 


1284 


DB40 






IN 


XP.MTX 



;test not ready bit. 
scan not recover. 
5get command mode, 
j no retrys check. 
5 should not recover. 
; motor time extend. 



;#****#*< RECORD RETRY )#*#*#######•«■###■«•■«•#######■**##### 



1286 


3A 1330 


1289 


3C 


128 A 


32 1330 


128D 


FE05 


128F 


2008 



LDA 


ERR.CT 


INR 


A 


STA 


ERR.CT 


CPI 


RTY.SK 


JRNZ 


. . CKLS 



?GET ERROR COUNT. 
? INCREMENT. 
; STORE NEW COUNT. 
; SHOULD TRY SEEK? 
5 IF NOT, CHECK LAST. 



;-*«***»#( REPOSITION R/W HEAD )#*########**##*###*###* 



1291 


CD 12A6 


1294 


200F 


1296 


CD 1131 



CALL 


HOME.D 


JRNZ 


. .EXIT 


CALL 


SEEK 



5H0ME SELECTED DRIVE. 

; ERROR EXIT. 

5 SEEK DESIRED TRACK. 



;■»###■»#*( HOLD READ GATE FOR 3/4 REVOLUTION >**#*«•####■«• 



1299 


FE09 


. .CKLS: 


CPI 


RTY.LS 


129B 


2807 




JRZ 


. . STNZ 


129D 


ED5B 1336 




LDED 


TM.PLD 


12A1 


CF 




WAIT 




12A2 


AF 




XRA 


A 


12A3 


C9 




RET 





?WAS THIS THE LAST. 
; ERROR LAST RETRY,. 
; PHASE LOCK DELAY., 
; PROGRAMMABLE DELAY. 
; CLEAR FOR RETRY. 
;TRY AGAIN EXIT. 



;###*■###< ERROR EXIT )#############*########-H-###-»ti*#tt### 



12A4 
12A5 



3C 
C9 



.STNZ: INR 
.EXIT: RET 



SET NOT ZERO. 
ERROR EXIT. 



; #############################*####################*■### 
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; HOME.D IS THE SUBROUTINE THAT STEPS THE DISK DRIVE * 
? R/W HEAD OUTWARD UNTIL THE TRACK FLAG BECOMES * 

5 ACTIVE OR 255 STEPS HAVE BEEN ISSUED. * 

;#####################################*#####*####•«•■»•■»•«■«•# 

;■*#■«•####( RESTORE R/W HEAD )########■*###*•##*•###•&##■«•■«■#■»■# 



12A6 


3 A 1331 


HOME. 


,D: 


LDA 


SV.DRV 


12A9 


D300 






OUT 


BL.CTL 


12AB 


32 1333 






STA 


SV.CTL 


12AE 


2EFF 






MVI 


L,255 


12B0 


CD 1024 


..STEP: 


CALL 


EX.STS 


12B3 


E604 






AN I 


DM.TKO 


12B5 


200C 






JRNZ 


■ a LA 1 I 


12B7 


2D 






DCR 


L 


12B8 


2316 






JRZ 


. . EROR 


12BA 


DB08 






IN 


XP.STP 


12BC 


ED5B 1012 






LDED 


TM.STP 


12C0 


CF 






WAIT 




12C1 


18ED 






JMPR 


. . STEP 



LOAD DRV NMBR ENABLED. 

ISSUE CONTROLS. 

AND SAVE THESE. 

SET STEP COUNTER. 

CHECK DISK STATUS. 

INSPECT TRACK FLG. 

IF SET, GO . .EXIT. 

DECREMENT STEP COUNT. 
: ERROR IF 255 STEPS. 
1 ISSUE STEP PULSE. 
iLOAD STEP DELAY. 

PROGRAMMABLE DELAY. 
:TRY STEPPING AGAIN. 



;####*##( DRIVE IS RESTORED )#####*#######•##***#*#**### 



12C3 


ED5B 1014 


* N fc. A 1 1 ■ 


LDED 


TM.ALS 


12C7 


CF 




WAIT 




12C8 


79 




MOV 


A,C 


12C9 


D305 




OUT 


WD.TRK 


12CB 


AF 




XRA 


A 


12CC 


DD7701 




MOV 


DV.TRK 


12CF 


C9 




RET 





;TIME AFTER LAST STEP. 
; PROGRAMMABLE DELAY. 
;GET WD TRK VALUE. 
?ZERO TRACK REGISTER. 
5ZER0 A REG, SET FLAG. 
5SET TRACK VALUE. 
? RETURN TO CALLER. 



; ####### ( TRACK NOT FOUND > ######*##########*##*#*#*# 



12D0 


3E02 


. .ERORs MVI 


A,CS.HME 


12D2 


32 1377 


STA 


CB.STS 


12D5 


A7 


ANA 


A 


12D6 


C9 


RET 





5L0AD HOME ERROR FLAG. 
; STORE ERROR STATUS. 
;SET RETURN FLAGS. 
5 RETURN TO CALLER. 



; ###################«################################*■# 
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; ########################################*############■«■ 



LOG. ON IS THE SUBROUTINE THAT READS THE IDENTITY 
SECTOR FROM THE DISKETTE AND MAKES THE NEEDED 
ENTRYS INTO THE DRIVE TABLE. THE SECTOR DATA IS 
ALSO LEFT IN THE SECTOR BUFFER FOR BIOS TO FINISH 
THE LOG-ON OPERATION. 



;■»###•»••«•#( CHECK -JADE IDENTITY ) ###-m^#############-k-###-m-# 



12D7 


11 133A 


LOG. ON: 


LXI 


D, JADE ID 


12DA 


21 1380 




LXI 


H, ID.LBL 


12DD 


0608 




MVI 


B, ID.SZE 


12DF 


1A 


. . CKJI! 


LDAX 


D 


12EO 


BE 




CMP 


M 


12E1 


200B 




■JRNZ 


. . 3740 


12E3 


13 




INX 


D 


12E4 


23 




INX 


H 


12E5 


10F8 




DJNZ 


. .CKJI 



; ID ADDRESS LOADED. 

; SECTOR ID ADDRESS. 

; ID LABEL SIZE. 

5GET CHARACTER. 

; CHECK AGAINST DISK. 

? IF DIFFERENT: 3740. 

5 CHECK NEXT. 

; CHECK NEXT. 

; REPEAT OPERATION. 



;##«■■*###( LOG-ON JADE FORMAT )########■*#####■*###■»•■!*■■»#*■#■«■ 



12E7 


3 A 13B1 


12EA 


DD7702 


12ED 


C9 



LDA 
MOV 
RET 



ID.FLG 
DV.FLG(X),A 



;SIDE AND DENSITIES. 
; STORE IN DRIVE TBL. 
; RETURN TO CALLER. 



;#######( ASSUME 3740 FORMAT )*######**#*#*###*****###* 



12EE 


3E00 


12F0 


DD770i 


12F3 


C9 



3740: MVI 
MOV 
RET 



A,ID.FLD 
DV.FLG(X),A 



SSIDE AND DENSITIES. 
■STORE IN DRIVE TBL. 
; RETURN TO CALLER. 



;*##################################################### 
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5 THE FOLLOWING ROUTINE SENDS ONE 8 BIT CHARACTER OUT * 
; THE EI A LEVEL TRANSMISSION BIT. SET FOR BAUD RATE. * 

;#######( SET UP FOR TRANSMISSION )■*■«■■«• ■»■■«■ -H--H--8- ###-&•»■**•# -a--* ## 



1314 
1315 
1316 
1319 



5 get board status. 
;test list ready bit. 
5wait ready (jz/.jnz). 
;get list character. 
5 complement acumulator. 
; character to e reg. 
;last controls used. 



;###*###< SEND THE START BIT )###•*####■*########*####### 



12F4 


DBOO 


LST.OT: 


IN 


BL.STS 


12F6 


E610 




AN I 


BS.EIA 


12FS 


CA 12F4 




JZ 


LST.OT 


12FB 


3A 1375 




LDA 


CB. CHR 


12FE 


2F 




CMA 




12FF 


5F 




MOV 


E,A 


1300 


3 A 1333 




LDA 


SV.CTL 



1303 


37 


1304 


CD 131A 


1307 


00 


1308 


00 


1309 


1608 



STC 

CALL 

NOP 

NOP 

MVI 



BIT.OT 



;SET CARRY BIT. 

? OUTPUT START BIT. 

? EQUALIZE TIMING. 

? EQUALIZE TIMING. 

! NUMBER OF DATA BITS. 



D,3 
;##*#*##< SEND EACH DATA BIT )##***( 39 CYCLE LOOP )##* 



; ROTATE E REG RIGHT. 
5SEND ONE DATA BIT. 
5 ONE LESS BIT TO DO. 
; REPEAT IF MORE BITS. 



;#######( SEND STOP BIT )######################*####### 



130B 


CBOB 


..DATA." RRCR 


E 


130D 


CD 131A 


CALL 


BIT.OT 


1310 


15 


DCR 


D 


1311 


C2 130B 


JNZ 


. . DATA 



00 

A7 

CD 131A 

C9 



NOP 
ANA 
CALL 
RET 



A 
BIT.OT 



! EQUALIZE TIMING. 
5 CLEAR CARRY FLAG. 
;SEND STOP BIT. 
; RETURN TO CALLER. 



1329 


0619 


132B 


10FE 


132D 


C9 



;■«•#*#*•*•*< SET EI A BIT AND OUTPUT )###*( 39 CYCLES )#**# 



; if carry, set to one. 
;zero eia in acum reg. 
;go to output port. 
5 set eia in acum. 
5 equalize timing. 
?send acum to port. 



;*######< SET DELAY FOR BAUDRATE )■*##■*#####•»##*#■»■###### 

B.BAUD.C 



131A 


DA 1322 


BIT.OT: 


JC 


. . ONE 


131D 


CB9F 




RES 


3» A 


131F 


C3 1327 




JMP 


. . OUT 


1322 


CBDF 


. .ONE: 


SET 


3, A 


1324 


C3 1327 




JMP 


. . OUT 


1327 


D300 


. .OUT: 


OUT 


BL.CTL 



MVI 

DJNZ 

RET 



ULOAD TIMING CSNT. 

? DELAY FOR BIT. 

? RETURN TO LST CALL. 



; #*##«####*###*###*##■«•■»■##•«•########■«•■«•#####■»■■«•####*#■»##### 
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; PROGRAM STORAGE LOACTIONS * 



132E 


13S0 


1330 


00 


1331 


00 


1332 


00 


1333 


00 


1334 


00 



BUF.ST: .WORD BUF.BG ; BUFFER STARTING ADDRESS. 

ERR.CT: .BYTE ; RETRY ERROR COUNTER. 

SV.DRV: .BYTE ;BL.CTL DRIVE BITS. 

SV.DAS: .BYTE ?BL.CTL DRIVE AND SIDE BIT* 

SV.CTL: .BYTE 5BL.CTL LAST ISSUED. 

SV.STS: .BYTE ;FD17?X-02 STATUS VALUE. 



1335 



00 



PH.TRKs .BYTE 



O 



? PHYSICAL TRACK NUMBER. 



; TIMING VALUES - 0.1 MS INCREMENTS * 



1336 


04B0 


TM.PLD! 


. WORD 


1200 


1338 


OOOA 


TM.SAW: 


. WORD 


10 


0018 




TM.SDD 


SS=5 


24 



; PHASE LOCK RECOVERY. 
?STEP AFTER WRITING. 
5SIDE SELECT DELAY. 



5 DISKETTE IDENTITY LABEL 



133 A 4A6 164652044 JADE ID: .ASCII 
0008 ID.SZE == 



"JADE DD " 
(. - JADEID) 



; DISKETTE 
; ID LABEL 



ID LABEL. 
SIZE. 



1380 
13A0 
13B1 
0000 



ID.LBL 
ID.BLK = 
ID.FLG 
ID.FLD 



= BUF.BG+OOOOH 
ID.LBL+0020H 
= ID.BLK+0011H 
= OOOOOOOOB 



5 ID SECTOR LABEL. 
; ID BLOCK AREA. 
; DISKETTE FLAGS. 
5 3740 FLAGS. 



;#####*#•»##########*##*####*##*########**####****#**##* 
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? DRIVE TABLE AREA DEFINED 

;#####•»•»•( EfRIVE TABLE ENTRIES )####■«■*#■«•#######*#######■«• 



OOOO 
0001 
0002 
0003 



DV.NBR =» 





DV.TRK == 


1 


DV.FLG == 


k' 


DV.CTL == 


3 



? CURRENT DRIVE NUMBER. 
? CURRENT TRACK NUMBER. 
5SIDE AND DENSITY FLAGS 
5LAST CONTROLS USED. 



;*######( DRIVE TABLE AREA )###•*##############*######## 



134i 



DV.TBL == 



DRIVE TABLE BEGGINING ADDRESS. 



1342 


00FF02C4 


DT. 


DEO: 


. BYTE 


1346 


01FF02C5 


DT. 


DEI: 


.BYTE 


134 A 


02FF02C6 






.BYTE 


134E 


03FF02C7 






. BYTE 


1352 


04FF0000 


DT. 


, DED: 


. BYTE 


0004 




DV. 


DES 


==: 



0,255,DF.DFL,0C4H 
1,255,DF.DFL,0C5H 
2,255,DF.DFL,0C6H 
3,255,DF.DFL,0C7H 
4,255,0,0 



? DRIVE 0. 
5 DRIVE 1. 
? DRIVE 2. 
5 DRIVE 3. 
5 DUMMY. 



DT.DE1-DT.DE0 



;EACH DRIVE ENTRY SIZE. 



;######■»• ( FLAG BIT DEFINITIONS )####################### 



0002 
0004 
0008 
0002 



DF.T1D == 0000001 OB 

DF.DTD == 00000 100B 

DF.TSD == 00001000B 

DF.DFL » DF.T1D 



; TRACK 1 DENSITY (1 = DOUBLE) 
5DATA TRACKS DENSITY (1 = DD) 
?TW0 SIDED < 1 = TWO SIDES). 
5 DEFAULT FLAGS. 



; #####*###*######################*■»■####■»•#####•»■####■»■#«•#■«- 
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5 THE FOLLOWING AREA IS DEFINED AS THE COMMAND BLOCK. * 

; THIS AREA IS RESERVED FOR SPECIFICATION BY THE HOST * 

5 SYSTEM FOR ALL DISK OPERATIONS. CONTROLLER STATUS # 

; AT COMPLETION OF OPERATION IS PRESENT IN THIS AREA. * 



; COMMAND BLOCK. 

; CONTROL COMMAND. 

? DRIVE NUMBER. 

; LOGICAL TRACK NUMBER. 

{SECTOR NUMBER. 

5 FORMAT FLAGS. 

;EIA CHARACTER. 

5MODE SELECTS. 

; CONTROLLER STATUS. 

?LOAD ADDRESS. 
;LOAD LENGTH 



;#**###*< MODE BIT DEFINITIONS >#*###**#•**#■**#***##**** 



1370 






. LOC 


CMD.BK 


1370 


00 


CB.CMD: 


.BYTE 





1371 


00 


CB.DRV 


.BYTE 





1372 


00 


CB.TRK. 


• . BYTE 





1373 


00 


CB.SEC 


: . BYTE 





1374 


00 


CB.FFG 


: . BYTE 





1375 


00 


CB.CHR 


: . BYTE 





1376 


00 


CB.MOD 


: .BYTE 





1377 


00 


CB.STS 


: .BYTE 





1378 


0000 


CU. LAD 


: . WORD 





137 A 


0000 


CW.LNG 


: . WORD 






ooso 



0080 
0040 
0020 
0010 
0008 
0004 
0002 
0001 



CM.NRT 



== 10000000B 



5 NO RETRYS ( = 1 ) . 



;******#( STATUS BIT DEFINITIONS )###*###*#####**#***#* 



CS.DNR == 10000000B 



CS.WRP 
CS.BT5 
CS.RNF 
CS.CRC 
CS.LDE 
CS.HME 
CS.TSD 



01000000B 
00100000B 
00010000B 
00001000B 
00000 100B 
0000001 OB 
0000000 IB 



; DRIVE NOT READY. 

5 WRITE PROTECTED. 

5N0T ASSIGNED. 

; RECORD NOT FOUND. 

;CRC ERROR. 

?LOST DATA ERROR. 

; DRIVE HOME ERROR. 

?TWO SIDES FLAG (FORMAT) 



;#######*####*###*#*##*##**###*#*###**#**************** 
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THIS SECTION RESIDES IN THE DCM SECTOR BUFFER. THIS * 
SECTION MOVES DCM FROM BANK 1 DOWN TO BANK 0. THE # 
C REGISTER IS SET FOR 1791-01 OR 1793-01. THE LAST * 
OPERATION IS TO READ THE BIOS LOADER SECTOR TO * 
OVERLAY THIS INITIALIZATION SEQUENCE. BIOS LOADER * 
THEN READ BIOS INTO BANK 1 AND HALTS. * 



!#######( EXECUTES IN BANK 1 )######*####*########**### 



1330 






1380 


01 


0400 


1383 


11 


1000 


1386 


21 


1400 


1389 


EDBO 


138B 


C3 


138E 



138E 
1391 



31 1370 
ED56 



1393 


OEOO 


1395 


DBOO 


1397 


E601 


1399 


2002 


139B 


OEFF 



.LOC 


BUF.BG 


INIT.B: LXI 


B.BANK.L 


LXI 


D,BANK.O 


LXI 


H.BANK. 1 


LDIR 




JMP 


. . DOWN 


;*######( NOW 


IN BANK 0» • 


..DOWN: LXI 


SP.TP.STK 


IM1 




; ###«•### ( SET 


1791-01/179 


MVI 


CO 


IN 


BL.STS 


AN I 


BS.USO 


JRNZ 


LD.BLT 


MVI 


C.OFFH 



; RESIDES IN BUFFER. 
;SET BANK LENGTH. 
;SET DESTINATION. 
;SET SOURCE ADDR. 
5 MOVE BLOCK. 
;JUMP TO NEW IMAGE. 

SET INT MODE >###*####*•####### 

?SET STACK PNTR. 
; INTERRUPT MODE 1. 

:>i )###«•##■«•#•«•######«•■«•####«■«•# 

J LOAD C REG ZERO. 

.board status. 
;test user sw #i. 

;SW OPEN - 1793. 
;SW CLOSED - 1791. 



;####*#*( OVERLAY WITH BIOS LOADER TRANSIENT )##***##*# 



139D 


DD21 1352 


LD. 


BLT: 


LXI 


X.DT.DED 


13A1 


3E02 






MVI 


A, 2 


13A3 


32 1373 






STA 


LB* oc.L- 


13A6 


DB40 






IN 


XP.MTX 


13 A3 


21 1380 






LXI 


H, BUF.BG 


13AB 


E5 






PUSH 


H 


13AC 


C3 1204 






JMP 


RD.SEC 



5INIT DRIVE TBL. 
;BIOS LOADER SECTOR. 
;SET SECTOR VALUE. 
! MOTOR TIME EXTEND. 
;SET RETURN ADDR. 
SPUSH INTO STACK. 
;GET BIOS LOADER. 



-END 
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BANK.O 


1 000 


BANK. 1 


1400 


BANK.L 


0400 


BASE 


1 000 


BAUD.C 


0019 


BC . DAS 


0020 


BC.DDE 


0010 


BC.DDS 


00 1 


BC.DSA 


000 1 


BC.DSB 


0002 


BC.DSE 


0004 


BC.DSN 


0003 


BC.EIA 


0008 


BC. INW 


0020 


BC.PCA 


0040 


BC.PCB 


0080 


BC.PCH 


0040 


BC. PO- 


OOCO 


BC.PCM 


0080 


BC.SD1 


0020 


BC.SDS 


0000 


SIT. OT 


131A 


BL.CTL 


0000 


BL.STS 


0000 


BS.DCN 


0080 


BS.EIA 


0010 


BS. INT 


0008 


BS.MOF 


0020 


BS.TSD 


0040 


BS.TST 


0004 


BS . USO 


000 1 


BS.US1 


0002 


BUF.BG 


1380 


BUF.ST 


1 32E 


CB.CHR 


1375 


CB.CMD 


1370 


CB.DRV 


1371 


CB.FFG 


1374 


CB.MOD 


1376 


CB.SEC 


1373 


CB.STS 


1377 


CB.TRK 


1372 


CHK.RT 


1279 


CMD.BK 


1370 


CM. DTA 


1053 


CM.MSK 


0007 


CM.NRT 


0080 


CS.BT5 


0020 


CS.CRC 


0003 


CS.DNR 


0080 


CS.HME 


0002 


CS.LDE 


0004 


CS.RNF 


00 1 


CS. TSD 


0001 


CS.WRP 


0040 


CW.LAD 


1 378 


CW.LNG 


137A 


DC. HDL 


00 1 8 


DC.HDU 


0010 


DC. IFI 


00D8 


DC . RD A 


OOCO 


DC.RDS 


0088 


DC.STS 


OODO 


DC.WRS 


00A8 


DC.WRT 


OOFO 


DF.DFL 


0002 


DF.DTD 


0004 


DF.T1D 


0002 


DF.TSD 


0008 


DM.DNR 


0080 


DM.FER 


00E4 


DM. HDL 


0020 


DM.LDE 


0004 


DM.RER 


009D 


DM.TKO 


0004 


DM.WER 


OOFD 


DT.DEO 


1342 


DT.DE1 


1346 


DT.DED 


1352 


DV.CTL 


0003 


DV.DES 


0004 


DV.FLG 


0002 


DV.NBR 


0000 


DV. TBL 


1 342 


DV.TRK 


0001 


ERR.CT 


1330 


EX.HCF 


1018 


EX.STS 


1024 


FETCH 


103F 


FMT. BO- 


1700 


FMT.PS 


1 708 


HOME.D 


12A6 


HR.INT 


1 038 


HR. VEC 


1006 


ID.BLK 


13A0 


ID.FLD 


0000 


ID.FLG 


13B1 


ID.LBL 


1380 


ID.SZE 


0008 


INIT.B 


1380 


IO.BLK 


1370 


JADE ID 


133A 


LD.BLT 


139D 


LOG. ON 


12D7 


LST.OT 


12F4 


NM. INT 


1066 


PH. TRK 


1335 


RD.SEC 


1204 


RST.O 


1000 


RST. 1 


1 008 


RST. 2 


1010 


RST. 3 


1018 


RST.4 


1020 


RST.5 


1028 


RST. 6 


1030 


RST. 7 


1038 


RTY.LS 


0009 


RTY.SK 


0005 


SEEK 


1131 


SELECT 


10EF 


SV.CTL 


1333 


SV.DAS 


1332 


SV.DRV 


1331 


SV.STS 


1334 


TICK.E 


1074 


TICK.R 


1070 


TMR.FC 


0019 


TMR.NC 


00 1 C 


TM.ALS 


1014 


TM.HLD 


1010 


TM.MTO 


1016 


TM. PLD 


1336 


TM.SAW 


1338 


TM.SDD 


0018 


TM.STP 


1012 


TP.STK 


1370 


TRK. IB 


0034 


TRK. OB 


001 A 


WD.CMD 


0004 


WD. DTA 


0007 


WD. INT 


1066 


WD. SEC 


0006 


WD.STS 


0004 


WD. TRK 


0005 


WR.SEC 


122F 


WR.TRK 


125A 


XP.DSH 


0080 


XP. IRR 


0020 


XP.MTO 


0010 


XP.MTX 


0040 


XP.STP 


0003 


X . CUTE 


1041 


*.ADDR 


10C7 


*.FORM 


1 098 


*. IDLE 


10E4 


*.LGON 


10AC 


*.LIST 


10CF 


*.LSTT 


10D5 


$.READ 


107C 


*.WRIT 


1 08A 



F1000, 13FF,0 

-IDCM2.HEX 

-R 

NEXT PC 

13AF OOOO 

-D1000.12FF 

1000 C3 00 00 C3 SO 17 41 10 06 19 10 FE C3 74 10 00 A T. . 

1010 5E 01 50 00 50 00 01 00 FD El DB 05 D3 07 78 A9 -•.P.P X. 

1020 D3 04 18 FE 3E DO A9 D3 04 E3 E3 E3 E3 DB 04 A9 > 

1030 C9 00 00 00 00 00 00 00 DB 20 Dl 2A 06 10 E9 FB # 

1040 76 3A 70 13 E6 07 87 16 00 5F 21 53 10 19 5E 23 V:P _!S.. A # 

1050 56 EB E9 AC 10 7C 10 8A 10 98 10 C7 10 CF 10 D5 V \ 

1060 10 E4 10 00 00 00 DB 04 A9 32 34 13 FD E3 ED 45 24 E 

1070 06 1C 10 FE IB 7A B3 00 00 20 F5 C9 CD EF 10 CD Z 

1080 31 11 20 03 CD 04 12 C3 3F 10 CD EF 10 CD 31 11 1 .? 1. 

1090 20 03 CD 2F 12 C3 3F 10 CD EF 10 3A 73 13 DD 77 ../..?....: S. . W 

10A0 02 CD 31 11 20 03 CD 5A 12 C3 3F 10 CD EF 10 AF . . 1 . ..Z..? 

10B0 32 72 13 3C 32 73 13 CD 31 11 20 08 CD 04 12 20 2R.<2S..l 

10CO 03 CD D7 12 C3 3F 10 3E FF 32 77 13 C3 3F 10 CD ?. >. 2W. . ?. . 

10D0 F4 12 C3 3F 10 DB 00 E6 10 CA DE 10 3E FF 32 77 . . . ? >.2W 

10E0 13 C3 3F 10 DB 00 E6 08 28 FA DB 20 C3 3F 10 DB ..? (.. . ?. . 

10F0 00 E6 20 DB 40 28 05 ED 5B 16 10 CF 3A 71 13 E6 .. . @( . . C . . . : G. . 

1100 03 DD BE 00 C8 DD 21 42 13 11 04 00 3D FA 14 11 !B 

1110 DD 19 18 F8 06 10 CD 18 10 3A 33 13 E6 FB D3 00 :3 

1120 E6 FC DD B6 00 D3 00 F6 04 D3 00 E6 07 32 31 13 21. 

1130 C9 CD 24 10 E6 AO FA 74 11 C2 46 11 06 18 CD 13 ..* T..F 

1140 10 ED 5B 10 10 CF DB 00 E6 40 3A 72 13 6F C2 52 ..C @:R.O.R 

1150 11 IF 32 35 13 67 3A 31 13 30 02 F6 20 32 32 13 ..25.0:1.0.. 22. 
1160 57 7C DD 96 01 20 21 DB 00 E6 40 CA 7B 11 DD 7E W\... !...©. C.. A 

1170 03 C3 EA 11 3E 30 32 77 13 A7 C9 7C A7 28 3B DD >. 2W. . . \. ( ; . 

1180 7E 03 E6 DF B2 C3 EA 11 F5 ED 5B 38 13 CF Fl 38 -- C8...8 

1190 OA 6F 3A 31 13 F6 20 D3 00 18 OB ED 44 FA FD 11 .0:1 D. . . 

11A0 6F 3A 31 13 D3 00 DB 08 ED 5B 12 10 CF 2D 20 F6 0:1 C . . . - . 

HBO 3A 32 13 D3 00 ED 5B 14 10 CF 3A 72 13 FE 01 38 :2 C...:R...S 

11C0 20 3E 04 C2 C8 11 3E 02 DD A6 02 CA El 11 3A 35 >....> :5 

11D0 13 FE 1A 06 DO 33 OC FE 34 06 90 38 06 06 50 18 8.. 4.. 8.. P. 

11E0 02 06 CO 3 A 32 13 BO DD 77 03 D3 00 32 33 13 3 A . . . : 2. . . W. . . 23. : 

UFO 35 13 DD 77 01 3A 72 13 A9 D3 05 AF C9 CD A6 12 5..W.:R 

1200 CO C3 46 11 AF 32 30 13 3A 73 13 A9 D3 06 FD 21 ..F..20.:S ! 

1210 23 12 2A 2E 13 3E 33 A9 D3 04 DB 80 DB 07 A9 77 #.#..> W 

1220 23 18 F7 E6 9D 32 77 13 C8 CD 79 12 28 EO C9 AF # 2W...Y. (... 

1230 32 30 13 3A 73 13 A9 D3 06 FD 21 4E 12 2A 2E 13 20. : S !N.#.. 

1240 3E A8 A9 03 04 DB 80 7E A9 D3 07 23 18 F7 E6 FD > '-...# 

1250 32 77 13 CS CD 79 12 28 EO C9 FD 21 66 12 3E FO 2W. . . Y. < . . . ! F. >. 

1260 A9 D3 04 C3 03 17 E6 E4 47 DB 00 E6 40 78 20 02 G...@X . 

1270 F6 01 32 77 13 22 7A 13 C9 E6 80 20 28 3A 76 13 ..2W."Z (IV. 

1280 E6 80 20 21 DB 40 3A 30 13 3C 32 30 13 FE 05 20 .. !.@:0.<20... 

1290 OS CD A6 12 20 OF CD 31 11 FE 09 28 07 ED 5B 36 l...(..C6 

12A0 13 CF AF C9 3C C9 3A 31 13 D3 00 32 33 13 2E FF <. : 1 . . . 23. . . 

12B0 CD 24 10 E6 04 20 OC 2D 28 16 DB 08 ED 5B 12 10 . *. . . .-< C . . 

12C0 CF 18 ED ED 5B 14 10 CF 79 03 05 AF DD 77 01 C9 C...Y W. . 

12D0 3E 02 32 77 13 A7 C9 11 3A 13 21 80 13 06 08 1A >.2W : . ! 

12E0 BE 20 OB 13 23 10 F8 3A Bl 13 DD 77 02 C9 3E 00 . ..#..:... W. . >. 
12F0 DD 77 02 C9 DB 00 E6 10 CA F4 12 3A 75 13 2F 5F . W :U. /_ 



01300. I3FF 


























1 300 


3A 


33 


13 


37 


CD 


1A 


13 


00 


00 


16 


08 


CB 


OB 


CD 


1310 


15 


C2 


OB 


13 


00 


A7. 


CD 


1A 


13 


C? 


DA 


22 


13 


CB 


1320 


27 


13 


CB 


OF 


C3 


27 


13 


03 


00 


06 


19 


10 


FE 


C9 


1330 


00 


00 


00 


00 


00 


00 


BO 


04 


OA 


00 


4A 


61 


64 


65 


1340 


44 


20 


00 


FF 


02 


C4 


01 


FF 


02 


C5 


02 


FF 


02 


C6 


1350 


02 


C7 


04 


FF 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


1360 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


1370 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


1380 


01 


00 


04 


11 


00 


10 


21 


00 


14 


ED 


BO 


C3 


8E 


13 


1390 


13 


ED 


56 


OE 


00 


DB 


00 


E6 


01 


20 


oi- 


OE 


FF 


DD 


13A0 


13 


3E 


02 


32 


73 


13 


DB 


40 


21 


80 


ls 


E5 


C3 


04 


13B0 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


13C0 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


1300 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


13E0 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


13F0 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 



9F C3 " 

80 13 - •'. 

20 44 JADE D 

03 FF D 

00 00 

00 00 

00 00 

31 70 ! IP 

2 1 52 ..V...... . . . . ! R 

12 00 . >.2S. . @! 

00 00 

00 00 

00 00 

00 00 

00 00 
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PROGRAM ID: FORMAT * 

PRESENTED BY: JADE COMPUTER PRODUCTS * 

4901 W. ROSECRANS BLVD. * 
HAWTHORNE, CALIFORNIA * 

90250, U.S.A. * 

* 

VERSION: CP/M 2.2 RELEASE 2A # 

■h- 

WRITTEN BY: STAN KRUMME * 

FORMAT IS A SYSTEM UTILITY WHICH PROVIDES A MEANS # 
TO WRITE A SINGLE OR DOUBLE DENSITY FORMAT ON ANY * 
OF DRIVES A THROUGH D. THIS UTILITY ALSO PROVIDES * 
A COPY-SYSTEM-TRACKS FEATURE. THIS IS A USEFUL 
FUNCTION FOR FORMAT AS THE SYSTEM TRACKS CAN BE 
WRITTEN WITH THE OPERATING SYSTEM WHEN FORMATTED. ••■ 
FORMAT IS S0S0/80S5/Z80 COMPATABLE. * 






FORMAT INJECTION MODULES ARE COMMAND COMPATABLE WITH# 
THE FOLLOWING WESTERN DIGITAL CONTROLLER CHIPS. * 
DOUBLE D USER SWITCH (UO OR RO) MUST BE SET TO # 
INDICATE THE CONTROLLER CHIP DATA BUS POLARITY. * 

CONTROLLER IC USER SWO * 

# 

FD 179 1-02 (01) CLOSED * 

FD 1793-02 (01) OPENED * 

FD 1795-02 CLOSED * 

FD1 797-02 OPENED * 



RELEASE 2A: SINGLE AND DOUBLE SIDED DRIVES CAN BE * 
FORMATED. INSPECTION OF TWO SIDED* SIGNAL FROM THE * 
DISK DRIVE DETERMINES NUMBER OF SIDES. WITH DOUBLE * 
SIDED DISKETTES, BOTH SIDES FORM ONE LOGICAL DISK. * 
EACH DOUBLE DENSITY TRACK NOW CONTAINS 50 SECTORS. * 



TDL ZSO 
FORMAT - 
PROGRAM 



CP/M DISK ASS 
JADE DOUBLE 
EQUATES 



JEMBLER 
D 



VERSION 
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OOOA 
OOOD 
0024 
0100 
0000 
0001 
0002 
0080 
0001 
0000 
0001 
0001 
OOFE 
0001 



; DRIVER MODULE DEFINITIONS * 



LF 

CR 

EOM 

TPA 

TRK.O 

TRK. 1 

TRK.2 

t~"fciL' n oZ 

ID. SEC 

REBOOT 

BS.PTR 

NO. LOG 

FT.ERC 

FT.TSM 



OOAH 


? ASCI I LINE FEED. 


OODH 


JCARRAIGE RETURN. 


'*•• 


; STR I NG TERM I NA TOR . 


0100H 


; TRANS I ENT PROGRAM . 





; TRACK 0. 


1 


; TRACK 1. 


Xf 


; TRACK 2. 


128 


J 128 BYTES PER SECTOR 


1 


5 ID SECTOR NUMBER. 





; REBOOT ADDRESS. 


000 1H 


;WARM ADDR POINTER. 


01H 


; REQUEST NO LOG-ON. 


11111110B 


; FORMAT ERROR MASK. 


0000000 IB 


?TWO SIDED MASK. 



1700 
0005 
0007 
0080 
0000 
OOFF 



5 INJECTION MODULE DEFINITIONS * 



FMT.EA 

WD. TRK 

WD.DTA 

XP.DSH 

ZEROS 

ONES 



1700H 

005H 

007H 

80H 

OOOOOOOOB 

11111111B 



; FORMAT EXEC ADDRESS. 
5 DOUBLE D TRACK PORT. 
I DOUBLE D DATA PORT. 
5DATA SYNC HOLD PORT. 
;ALL ZERO BYTE. 
;ALL ONES BYTE. 



BDOS CALL ~ VECTOR NUMBERS * 



0005 
0009 
OOOA 



0100 



BDOS 


= := 


0005H 


BC.PTX 


= == 


009H 


BC.RCB 


=s=s 


OOAH 



; SYSTEM CALL ADDR. 

5 PRINT STRING CONSOLE. 

;READ CONSOLE BUFFERD. 



; ASSEMBLER DIRECTIVES * 

; #######*############################################## 

. 18080 

. PABS 

.PHEX 

.XL INK 

. LOC TPA 
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; PROGRAM BEGINS * 



OlOO 



C3 0146 



BEGIN: 



JMP 



INIT 



;G0 TO INITIALIZE. 



; ASCII IDENTIFICATION INSERT * 



0103 4A4 144452043 
1 1 A 444F55424C45 
012F 56455253494F 



ASCII 'JADE COMPUTER PRODUCTS 
ASCII -DOUBLE D - FORMAT 8" " 
ASCII 'VERSION 2.2 RELEASE 2A 



5 SET STACK POINTER AND ISSUE LOG-ON * 



0146 
0149 
014C 



31 0500 
11 0716 
CD 0297 



INIT: 



LXI 


SP,SP.T0P 


LXI 


D,MSG.BG 


CALL 


MSG.OT 



5SET STACK POINTER. 
;L0AD MESSAGE ADDR. 
; ISSUE MESSAGE. 



5 LOAD BIOS VECTORS JUMP TABLE - WARM THRU FORMAT * 



014F 


01 


0033 


0152 


11 


02A4 


0155 


2A 


0001 


0158 


CD 


02D7 



LXI 


B,BS.VSZ 


LXI 


D,BS.WRM 


LHLD 


BS.PTR 


CALL 


B.MOVE 



;SET BIOS VECTORS SIZE. 
?SET FORMAT TABLE. 
5WARM VECTOR POINTER. 
; BLOCK MOVE VECTORS. 



SELECT DRIVE TO FORMAT ON * 



015B 


21 


0781 


015E 


CD 


0435 


0161 


32 


04DF 



LXI 

CALL 

STA 



HiMSO.FO 

SEL.DR 

FD.NBR 



; FORMAT ON DRIVE MSG. 
;CALL SELECT DRIVE. 
? FORMAT DRIVE NMBR. 



##########*#######################**##############•*#*■# 
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; DISPLAY FUNCTIONS LIST * 



0164 
0167 



11 
CD 



07BB 
0297 



LIST: 



LXI 
CALL 



D.MSG.FL 
MSG.OT 



; FUNCTIONS MSG ADDR. 
; ISSUE THIS MESSAGE. 



? INQUIRE SELECTION * 



5 SELECT FUNCTION MSG. 
; ISSUE THIS MESSAGE. 
?GET CONSOLE CHARACTER. 
5 LOAD BUFFER SIZE. 
; CHECK FOR 1 CHARACTER. 
; OTHER THAN 1 TOO BAD. 



016A 


11 0SF4 


SELECT: 


LXI 


D,MSG.SF 


016D 


CD 0297 




CALL 


MSG.OT 


0170 


CD 029C 




CALL 


CNS. IN 


0173 


3A 0501 




LDA 


RC.NBR 


0176 


FE01 




CPI 


1 


0178 


C2 016A 




JNZ 


SELECT 



J SELECT FUNCTION DRIVER * 



017B 


3A 0502 


017E 


FE31 


0180 


CA 01AA 


0183 


FE32 


0185 


CA 0208 


01S8 


FE33 


018A 


CA 01D2 


018D 


FE34 


018F 


CA 01EB 


0192 


FE35 


0194 


CA 025D 


0197 


FE2A 


0199 


CA 023B 


019C 


FE27 


019E 


CA 04CC 



LDA 


RC.TXT+O 


CPI 


"1" 


JZ 


FUN.l 


CPI 


11 •">»! 


JZ 


FUN. 2 


CPI 


"3" 


JZ 


FUN. 3 


CPI 


ii A" 


JZ 


FUN. 4 


CPI 


ii cr ii 


JZ 


FUN. 5 


CPI 


"#" 


JZ 


FMT.ST 


CPI 


11 .•* 11 


JZ 


RST.7 



!LOAD CONSOLE CHAR. 
?FMT DOUBLE DENSITY. 
;FMT SINGLE DENSITY. 
;FMT 3740. 

5READ SYSTEM TRACKS. 
? WRITE SYSTEM TRACKS. 
; FORMAT SYSTEM TRACKS. 
5DDT TRAP. 



01A1 
01A4 
01A7 



11 07A2 
CD 0297 
C3 0164 



? MUST BE A BAD CHOICE * 



; SELECT ERROR MESSAGE. 
; ISSUE MESSAGE. 
5DIPLAY LIST AGAIN. 



LXI 


D,MSG.SE 


CALL 


MSG.OT 


JMP 


LIST 



#####################■*######################*#*#**###■* 
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; FUNCTION 1 - FORMAT IN DOUBLE DENSITY * 



OlAA 


3A 


0647 


01 AD 


32 


04DC 


01 BO 


3E00 


01B2 


32 


04D9 


01B5 


CD 


03 IB 


01B8 


C2 


028E 


01BB 


3E01 * 


01BD 


32 


04D9 


01C0 


CD 


0321 


01C3 


C2 


028E 


01C& 


CD 


0279 


01C9 


CA 


01C0 


01CC 


CD 


02F2 


01CF 


C3 


016A 



FUN. l: 


LDA 


DD.FLG 




ST A 


F.FLAG 




MVI 


A,TRK.O 




STA 


TRK.NO 




CALL 


FMT.SD 




JNZ 


TRK.ER 




MVI 


A,TRK.l 




STA 


TRK.NO 


. .REPT: 


CALL 


FMT.DD 




JNZ 


TRK.ER 




CALL 


TRK.NX 




JZ 


. . REPT 


. . ID: 


CALL 


WDD. ID 




JMP 


SELECT 



LOAD DDENS FLAGS. 
STORE FORMAT FLAGS. 
TRACK 0. 

SET TRACK NUMBER. 
FORMAT TRACK SDENS. 
JUMP ERROR DETECTED. 
TRACK 1 VALUE. 
SET TRACK NUMBER. 
FORMAT TRACK DDENS. 
JUMP ERROR DETECTED. 
SET FOR NEXT TRACK. 
FORMAT NEXT TRACK. 
WRITE DDENS ID SECTOR. 
SELECT NEW FUNCTION. 



; FUNCTION 3 - FORMAT STANDARD 3740 - SINGLE SIDED * 



01D2 


3E00 


FUN. 3: 


MVI 


A,0 


01D4 


32 04 DC 




STA 


F.FLAG 


01D7 


3E00 




MVI 


A,TRK.O 


01D9 


32 04D9 




STA 


TRK.NO 


01 DC 


CD 03 IB 


. .REPT: 


CALL 


FMT.SD 


01DF 


C2 028E 




JNZ 


TRK.ER 


01E2 


CD 0279 




CALL 


TRK.NX 


01E5 


CA 01 DC 




JZ 


. . REPT 


01E8 


C3 016A 




JMP 


SELECT 



;3740 SDENS FLAGS. 
; STORE FORMAT FLAGS. 
; TRACK 0. 

5SET TRACK NUMBER. 
; FORMAT TRACK SDENS. 
5JUMP ERROR DETECTED. 
;SET FOR NEXT TRACK. 
; FORMAT NEXT TRACK. 
? SELECT NEW FUNCTION. 



? FUNCTION 4 - READ SYSTEM TRACKS * 



01EB 


21 090E FUN. 4: LXI 


H,MSG.RS 


01EE 


CD 0485 


CALL 


SEL.DR 


01F1 


3E52 


MVI 


A, 'R' 


01F3 


32 04D4 


STA 


TF.DIR 


01F6 


32 04DD 


STA 


SYS.RF 


01F9 


CD 0355 


CALL 


TRNSFR 


01FC 


3A 04DF 


LDA 


FD.NBR 


01FF 


4F 


MOV 


CA 


0200 


1E01 


MVI 


E, NO. LOG 


0202 


CD 02BC 


CALL 


BS.DSK 


0205 


C3 016A 


■JMP 


SELECT 



READ DRIVE MSG. 

SELECT READ SYS DRV. 

READ TRANSFER CODE. 

SET TRANSFER DIRC. 
:SET SYSTEM READ FLAG. 

READ SYSTEM TRACKS. 
:GET FORMAT DRV NMBR. 

PUT INTO C REG. 
: INSURE NO LOGON. 
:BIOS SELECT DISK, 
i RESELECT FUNCT I ON . 



; ###*###########*#################*############■»*###*, 
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; FUNCTION 2 - FORMAT IN SINGLE DENSITY * 



0208 


3A 0547 


020B 


32 04DC 


020E 


3E00 


0210 


32 04D9 


0213 


CD 031B 


0216 


C2 028E 


0219 


3E01 


021B 


32 04D9 


021E 


CD 0321 


0221 


C2 028E 


0224 


3E02 


0226 


32 04D9 


0229 


CD 03 IB 


022C 


C2 028E 


022F 


CD 0279 


0232 


CA 0229 


0235 


CD 02E2 


0238 


C3 016A 



FUN. 



.REPT: 



. . ID: 



LDA 


SD.FLG 


STA 


F.FLAG 


MVI 


A.TRK.O 


STA 


TRK.NO 


CALL 


FMT.SD 


JNZ 


TRK.ER 


MVI 


A.TRK. 1 


STA 


TRK.NO 


CALL 


FMT.DD 


JNZ 


TRK.ER 


MVI 


A.TRK.2 


STA 


TRK.NO 


CALL 


FMT.SD 


JNZ 


TRK.ER 


CALL 


TRK.NX 


JZ 


. . REPT 


CALL 


USD. ID 


JMP 


SELECT 



LOAD SDENS FLAGS. 
: STORE FORMAT FLAGS. 
! TRACK 0. 
:SET TRACK NUMBER. 

FORMAT TRACK SDENS. 
IJUMP ERROR DETECTED. 
! TRACK 1 

:SET TRACK NUMBER. 
J FORMAT TRACK DDENS. 
IJUMP ERROR DETECTED. 
[TRACK 2. 

(SET TRACK NUMBER. 
(FORMAT TRACK SDENS. 
IJUMP ERROR DETECTED. 
I SET FOR NEXT TRACK. 
I FORMAT NEXT TRACK. 
! WRITE SDENS ID SECTOR. 
! SELECT NEW FUNCTION. 



023B 


3A 0547 


023E 


32 04DC 


0241 


3E00 


0243 


32 04D9 


0246 


CD 031B 


0249 


C2 028E 


024C 


3E01 


024E 


32 04D9 


0251 


CD 0321 


0254 


C2 028E 


0257 


CD 02E2 


025A 


C3 016A 



? NON DOCUMENTED FUNCTION - FORMAT JADE SYSTEM TRACKS * 
? USED FOR SPECIAL PURPOSE - NOT NEEDED BY END USER # 



LOAD SDENS FLAGS. 

STORE FORMAT FLAGS. 

TRACK 0. 

SET TRACK NUMBER. 
: FORMAT TRACK SDENS. 
UUMP ERROR DETECTED. 
: TRACK 1 

: SET TRACK NUMBER. 
(FORMAT TRACK DDENS. 
IJUMP ERROR DETECTED. 
I WRITE SDENS ID SECTOR. 
I SELECT NEW FUNCTION. 



FMT.ST: LDA 


SD.FLG 


STA 


F.FLAG 


MVI 


A,TRK.O 


STA 


TRK.NO 


CALL 


FMT.SD 


JNZ 


TRK.ER 


MVI 


A,TRK.l 


STA 


TRK.NO 


CALL 


FMT.DD 


JNZ 


TRK.ER 


CALL 


WSD.ID 


JMP 


otz.L-£L'_- i 



;##*##*#####**#***#*##*##*###*###*###*#**####**####*#*# 
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; FUNCTION 5 - WRITE SYSTEM TRACKS # 



025D 


3A 04DD 


0260 


FE52 


0262 


C2 0270 


0265 


3E57 


0267 


32 04D4 


026A 


CD 0355 


026D 


C3 016A 


0270 


11 095E 


0273 


CD 0297 


0276 


C3 01 6A 



FUN. 5: 



NSYS: 



LDA 


SYS.RF 


CPI 


'R' 


JNZ 


. . NSYS 


MVI 


A, 'W 


STA 


TF.DIR 


CALL 


TRNSFR 


JMP 


SELECT 


LXI 


D,MSG.NR 


CALL 


MSG.OT 


JMP 


SELECT 



LOAD SYSTEM READ FLAG. 
TEST IF READ CODE. 
JUMP IF NO SYSTEM. 
WRITE TRANSFER CODE. 
SET TRANSFER DIRC. 
WRITE SYSTEM TRACKS. 
WRITE ANOTHER DISK. 
NO SYSTEM LOADED MSG. 
ISSUE THIS MESSAGE. 
SELECT NEW FUNCTION. 



; NEXT TRACK SELECT ROUTINE * 



0279 


3A 04DA 


TRK. 


NX: 


LDA 


TRK. MX 


027C 


47 






MOV 


B,A 


027D 


3A 04D9 






LDA 


TRK. NO 


0280 


B8 






CMP 


B 


0281 


CA 028A 






JZ 


. . DONE 


0284 


3C 






INR 


A 


0285 


32 04D9 






STA 


TRK. NO 


0288 


AF 






XRA 


A 


0289 


C9 






RET 




028A 


3EFF 


..DONE? 


MVI 


A, ONES 


028C 


A7 






ANA 


A 


028D 


C9 






RET 





:LOAD MAX TRACK NMBR. 

SAVE IN REG B. 
:GET THIS TRACK NO. 
! CHECK FOR LAST TRACK. 
:JUMP IF LAST TRACK. 
:GET NEXT TRACK. 
: STORE NEXT TRACK. 
:SET ZERO FLAG. 
! RETURN TO CALLER. 
:SET ALL ONES. 
:SET FLAG NOT ZERO. 

LAST TRACK EXIT. 



; FORMAT TRACK ERROR * 



023E 


11 


0945 


TRK.ER: LXI 


DiMSG.FE 


0291 


CD 


0297 


CALL 


MSG.OT 


0294 


C3 


016A 


JMP 


SELECT 



i FORMAT ERROR MSG ADDR. 

! DISPLAY MESSAGE. 

? SELECT NEW FUNCTION. 



; #############################################*####■*•«•## 
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; MESSAGE DISPLAY ROUTINE # 



0297 
0299 



0E09 
C3 0005 



MSG.OT: MVI 
JMP 



CBC.PTX 
BDOS 



? PRINT TEXT VECTOR. 
; CONTINUE IN BDOS. 



? CONSOLE INPUT ROUTINE * 



029C 


11 0500 


CNS.IN: LXI 


D,RC.BUF 


029F 


OEOA 


MVI 


Lp i BL « rvL-D 


02 A 1 


C3 0005 


JMP 


BDOS 



; KEYBOARD BUFFER ADDR. 
SBDOS CONSOLE BUF READ. 
; CONTINUE IN BDOS. 



; BIOS VECTOR DEFINITIONS # 



02A4 


C3 


0000 


BS.WRM: 


JMP 







02A7 


C3 


0000 




JMP 







02AA 


C3 


0000 




JMP 







02AD 


C3 


0000 




JMP 







02B0 


C3 


0000 




JMP 







02B3 


C3 


0000 




JMP 







02B6 


C3 


0000 




JMP 







02B9 


C3 


0000 




JMP 







02BC 


C3 


0000 


BS.DSK: 


JMP 







02BF 


C3 


0000 


BS.TRK: 


JMP 







02C2 


C3 


0000 


Bo ■ SE.C ■ 


JMP 







02C5 


C3 


0000 


BS. DMA: 


JMP 







02C8 


C3 


0000 


BS.RDS: 


JMP 







02CB 


C3 


0000 


BS.WRS: 


JMP 







02CE 


C3 


0000 




JMP 







02D1 


C3 


0000 




JMP 







02D4 


C3 


0000 


BS.FMT: 


JMP 







0033 






BS.VSZ 


= := 


.-BS. 


WRM 



! RELOAD CCP/BDOS. 

GET CONSOLE STATUS. 

CONSOLE CHAR INPUT. 

CONSOLE CHAR OUTPUT. 
: PRINTER OUTPUT. 

PUNCH CHARACTER OUT. 
: READER INPUT. 

HOME SELECTED DRIVE. 

SELECT DISK DRIVE. 

SET TRACK NUMBER. 

SET SECTOR NUMBER. 

SET TRANSFER ADDR. 

READ DISK SECTOR. 

WRITE DISK SECTOR. 

LIST DEV STATUS. 

SECTOR TRANSLATE. 

FORMAT DISK TRACK. 

CALCULATE SIZE. 



; BLOCK MOVE SUBROUTINE * 



02D7 


7E 


02D8 


23 


02D9 


12 


02DA 


13 


02DB 


OB 


02DC 


78 


02DD 


Bl 


02DE 


C2 


02E1 


C9 



02D7 



B.MOVE: 


MOV 


A,M 




INX 


H 




ST AX 


D 




INX 


D 




DCX 


B 




MOV 


A,B 




ORA 


C 




JNZ 


B.MOVE 




RET 





5GET BYTE 

; INC SOURCE. 

9 STORE BYTE. 

; INC DESTINATION. 

SONE LESS TO DO. 

;GET B REG. 

?0R IN C REG. 

; REPEAT FOR LENGTH. 

; RETURN CALLER. 



; #######*#################*####■»•♦*##■»•####•«.##•«.■«■#•»•###•«.##■«• 
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; WRITE ID SECTOR * 

;#######( SET TRANSFER ADDRESS )######*#########*###### 



02E2 


01 


0516 


WSD. 


IDs 


LXI 


B> IDS.SS 


; ID SECTOR ADDRESS. 


02E5 


3A 


04 DS 






LDA 


TS.FLG 


?GET TWO SIDES FLG. 


02ES 


A7 








ANA 


A 


;TEST. 


02E9 


CA 


02FF 






JZ 


WRT. ID 


;JUMP ONE SIDED. 


02EC 


01 


0596 






LXI 


6> IDS'.DS 


; DOUBLE SIDED. 


02EF 


C3 


02FF 






JMP 


WRT. ID 


5JUMP TWO SIDED. 


02F2 


01 


0616 


WDD. 


ID: 


LXI 


B, IDS.SD 


; ID SECTOR ADDRESS. 


02F5 


3A 


04D8 






LDA 


TS.FLG 


5 GET TWO SIDES FLG. 


02FS 


A7 








ANA 


A 


;TEST. 


02F9 


CA 


02FF 






JZ 


WRT. ID 


?JUMP ONE SIDED. 


02FC 


01 


0696 






LXI 


B, IDS.DD 


? DOUBLE SIDED. 


02FF 


CD 


02C5 


WRT. 


ID: 


CALL 


BS. DMA 


;BIOS TRANSFER ADDR 



;#######< SET TRACK AND SECTOR NUMBERS )###*#******#*** 



0302 


OEOO 


0304 


CD 02BF 


0307 


0E01 


0309 


CD 02C2 



030C 


CD 02CB 


030F 


B7 


0310 


C8 


0311 


11 092B 


0314 


CD 0297 


0317 


3EFF 


0319 


A7 


031A 


C9 



MVI 


CTRK.O 


CALL 


BS.TRK 


MVI 


C, ID. SEC 


CALL 


BS.SEC 


*#*#***< PERFORM WRITE : 


CALL 


BS.WRS 


ORA 


A 


RZ 




LXI 


D,MSG.NC 


CALL 


MSG.OT 


MVI 


A, ONES 


ANA 


A 


RET 





: TRACK SET. 
5 BIOS SET TRACK. 
;ID SECTOR VALUE. 
5 BIOS SET SECTOR. 

5BI0S WRITE SECTOR. 
?SET CONDITION CODES. 
? RETURN USER GOOD. 
; TRANSFER INCOMPLETE. 
? ISSUE MESSAGE. 
;SET ACLIMULATOR. 
5SET FLAGS NOT ZERO. 
; ERROR RETURN. 



;#####*###############'^i•■^(•^^##•»•#■»■######■«■##*#■«•#*#■«■##^«•##*##^ 
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; FORMAT TRACK DRIVER * 

;###•«■###( DENSITY ENTRIES )#*#*###***'#****##*#********# 



031B 


01 


OAOO 


FMT.SD: LXI 


B,FT3740 


031E 


C3 


0324 


JMP 


ST. DMA 


0321 


01 


OBOO 


FMT.DDs LXI 


B.FTJ50D 



5L0AD INJECTION ADDR. 
!G0 SET DMA ADDR. 
HLOAD INJECTION ADDR. 



?#######< SET INJECTION MODULE ADDRESS )#*######**##*## 
0324 CD 02C5 ST. DMAs CALL BS.DMA ? SET TRANSFER ADDRESS. 

;##**###< SET TRACK NUMBER AND DCM FLAGS )##**#**###### 



0327 
032A 
032B 

032E 
0331 
0332 



3A 04D9 

4F 

CD 02BF 

3A 04DC 

4F 

CD 02C2 



LDA 
MOV 
CALL 

LDA 
MOV 
CALL 



TRK.NO 

C,A 

BS.TRK 

F.FLAG 
C,A 

t?0 m vL>v 



;LOAD TRACK NMBR. 
;PUT INTO C REGISTER. 
5SET TRACK NMBR. 

?LGAD DCM FLAG. 
;DCM FLAGS. 
?SET DCM FLAGS. 



0335 
0338 
033B 
033D 



CD 02D4 
32 04D7 
E6FE 
CO 



!#######( PERFORM FORMAT TRACK )######*#####*■*######### 



?BIOS WRITE TRACK. 
? FORMAT STATUS. 
;TEST FOR ERRORS. 
; ERROR EXIT. 



CALL 


BS.FMT 


STA 


FT.STS 


AN I 


FT.ERC 


RNZ 





;###*###< SET CONTROLS FOR SIDE/SIDES )*#■»##########**# 



033E 


3A 04D7 




LDA 


FT.STS 


0341 


E601 




AN I 


FT.TSM 


0343 


32 04DS 




STA 


TS.FLG 


0346 


C2 034E 




JNZ 


. . TWSD 


0349 


3E4C 




MVI 


A, 77-1 


034B 


C3 0350 




JMP 


..EXIT 


034E 


3E99 


..TWSD: 


MVI 


A»2#77-l 


0350 


32 04DA 


..EXIT: 


STA 


TRK.MX 


0353 


AF 




XRA 


A 


0354 


C9 




RET 





;get status. 

;TEST TWO SIDES FLAG. 

? STORE FLAG. 

5TW0 SIDES IS A 1. 

; SINGLE SIDED MAX. 

,-EXIT. 

; DOUBLE SIDED MAX. 

?SET MAX TRACK. 

;SET ZERO FLAG. 

; RETURN TO CALLER. 



;##########**###«-#######-»##*########**#*####*######-«-### 
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; SYSTEM TRACKS TRANSFER FUNCTION - ENTRY POINT * 
;####**#( TRANSFER INITIALIZE )*###***#*####*#####*♦*♦* 



0355 
0358 



21 03 A9 

22 04D2 



TRNSFRs LXI 
SHLD 



l-UST.LST 
TF.PTR 



I ADDR OF TRANSFER LIST. 
;SET TRANSFER POINTER. 



;######•«•( SET BIOS TRACK NUMBER )######*###*########### 



035B 


CD 0391 


..REPT: CALL 


. . PLST 


035E 


FEFF 


CPI 


EOL 


0360 


C8 


RZ 




0361 


CD 02BF 


CALL 


BS.TRK 



;pop byte from list. 
;test for end of list. 
;exit transfer. 
;bios set track. 



;####*##( SET BIOS SECTOR NUMBER )##■»•##########*#»##*■»■# 



0364 
0367 



CD 0391 
CD 02C2 



CALL 
CALL 



. . PLST 
BS.SEC 



;POP BYTE FROM LIST. 
?BIOS SET SECTOR. 



;#######( SET BIOS TRANSFER ADEiRESS )#»#####•«■**##*■#«•♦*■# 



036A 


CD 


0391 


036D 


CD 


039B 


0370 


CD 


02C5 



CALL 
CALL 
CALL 



. . PLST 
. . ADDR 
BS.DMA 



5 POP BYTE FROM LIST. 
! CALCULATE ADDRESS. 
5 BIGS TRANSFER ADDR. 



;#*#####( SECTOR TRANSFER OPERATION )###**#**####*##*## 



0373 


21 0386 


LXI 


H, . .RETN 


0376 


E5 


PUSH 


H 


0377 


3A 04D4 


LDA 


TF.DIR 


037A 


FE57 


CPI 


•-w-' 


037C 


CA 02CB 


JZ 


BS.WRS 


037F 


FE52 


CPI 


'R' 


0381 


CA 02C8 


JZ 


BS.RDS 


0384 


3EFF 


MVI 


A, ONES 


0386 


B7 


.RETN: ORA 


A 


0387 


CA 035B 


JZ 


. . REPT 



?LOAD RETURN ADDRESS. 
?PUSH ONTO STACK. 
;LOAD TRNSFR DIRECTION. 
;SEE IF WRITE FUNCTION. 
;BIOS WRITE SECTOR. 
;SEE IF READ FUNCTION. 
JBIOS READ SECTOR. 
; ERROR CODE NOT R/W. 
JSET CONDITION CODES. 
?D0 SOME MORE. 



;####•»•##< ENCOUNTERED DIFFICULTY )#«•*##############*##■»• 



038A 


11 


092B 


038D 


CD 


0297 


0390 


C9 





LXI 


D,MSG.NC 


; MESSAGE ADDRESS. 


CALL 


MSG.OT 


!SEND MESSAGE. 


RET 




;go HOME. 



; ###*######################■»#■»■#■»••»■#######■«•###*■»•#■«•#*##### 
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; POP LIST SUBROUTINE * 



0391 


2A 04D2 


. .PLST: 


LHLD 


TF.PTR 


0394 


4E 




MOV 


CM 


0395 


23 




INX 


H 


0396 


22 04D2 




SHLD 


TF.PTR 


0399 


79 




MOV 


A,C 


039A 


C9 




RET 





5L0AD LIST POINTER. 
?GET ITEM NUMBER. 
? INCREMENT POINTER. 
; STORE LIST POINTER. 
5M0VE C TO ACUM. 
? RETURN TO CALLER. 



; GET MEMORY ADDRESS SUBROUTINE * 



039B 


A7 


..ADDR: ANA 


A 


039C 


IF 


RAR 




039D 


47 


MOV 


B,A 


039E 


3E00 


MVI 


A,0 


03A0 


IF 


RAR 




03A1 


4F 


MOV 


C,A 


03A2 


2A 04D0 


LHLD 


TF. INX 


03A5 


09 


DAD 


B 


03A6 


44 


MOV 


B,H 


03A7 


4D 


MOV 


C ■> L. 


03A8 


C9 


RET 





s CLEAR CARRY BIT. 

DIVIDE BY 2. 
iHI ORDER TO B REG. 
i CLEAR ACUMULATGR. 
i CARRY BIT TO MSB. 

LO ORDER TO C REG. 
:LOAD TRANSFER INDEX, 
i ADD IN OFFSET. 
iHALF MOV BCHL. 
:THE OTHER (HA! ) 
! RETURN TO CALLLER. 



; ########-*################################*############ 
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THE FOLLOWING IS A LIST OF SYSTEM TRACK SECTORS * 
USED BY THE TRNSFR SUBROUTINE. THERE ARE THREE * 
ENTRIES PER SECTOR. 1ST IS TRACK NUMBER. 2ND IS * 
SECTOR NUMBER. 3RD IS MEMORY LOAD OFFSET. * 

SECTORS 2 THRU 26 ARE TRANSFERED ON TRACK 0. SECTOR # 

1 IS NOT TRANSFERED, THIS IS THE IDENTITY SECTOR. * 

TRACK SECTOR ARE LOCATED IN SEQUENCIAL ORDER, SO * 

THIS LIST IS STAGGERED. SECTORS 1 THRU 48 ARE ■» 

TRANSFERED ON TRACK 1. * 



0000 
0001 
OOFF 



TKO 
TK1 
EOL 




1 
OFFH 



; DEFINE TRACK 0. 
; DEFINE TRACK 1. 
; DEFINE END OF LIST. 



; ##########*##########*###*######****###*###*##**##■»«•*## 



03A9 000404000808 

03B5 001414001818 

03C1 OOOAOAOOOEOE 

03CD 001A1A000505 

03D9 001111001515 

03E5 000707000B0B 

03F1 001717 



ST.LSTs .BYTE TKO, 04, 04, TKO, 08, 08, TKO, 12, 12, TKO, 16, 16 

. BYTE TKO, 20, 20, TKO, 24, 24, TKO, 02, 02, TKO, 06, 06 

.BYTE TKO, 10, 10, TKO, 14, 14, TKO, 18, 18, TKO, 22, 22 

.BYTE TKO, 26, 26, TKO, 05, 05, TKO, 09, 09, TKO, 13, 13 

. BYTE TKO, 17,17, TKO, 21 , 21 , TKO, 25, 25, TKO, 03, qi 

.BYTE TK0,07,07,TK0,11,11,TK0, 15, 15, TKO, 19,: 

.BYTE TKO, 23, 23 



03F4 01011B01021C 

0400 O 1 05 1F0 10620 

040C 01 09230 10A24 

0418 010D27010E28 

0424 01112B01122C 

0430 01152F011630 

043C 01 193301 1A34 

0448 011D37011E3S 

0454 01213B01223C 

0460 01 253F0 12640 

046C 01 29430 12A44 

0478 012D47012E48 



BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 

,BYTE 
BYTE 

,BYTE 



TK1 
TK1 
TK1 
TK1 
TK1 
TK1 
TK1 
TK1 
TK1 
TK1 
TK1 
TK1 



,01,27, 
,05,31, 
,09,35, 
,13,39, 
, 17,43, 
,21,47, 
,25,51, 
,29,55, 
,33,59, 
,37,63, 
,41,67, 
,45,71, 



TKli 
TK1. 

TK1: 

TKl. 
TK1, 

TK1; 
TK1: 

TK1 
TK1 
TK1 
TK1 
TK1 



02,23, 
06,32, 
10,36, 
14,40, 
18,44, 
22,48, 
26,52, 
30,56, 
34,60, 
38,64, 
42,68, 
46,72, 



TK1, 
TK1, 
TK1, 
TK1, 
TK1, 
TK1, 
TK1, 
TK1, 
TK1, 
TK1, 
TK1, 
TK1, 



03,29, 
07,33, 
11,37, 
15,41, 
19,45, 
23,49, 
£./■> 53, 
31,57, 
35,61, 
39,65, 
43,69, 
47,73, 



TK1 
TK1 
TK1 
TK1 
TK1 
TK1 
TK1 
TK1 
TK1 
TK1 
TK1 
TK1 



,04,30 
,08,34 
, 12,38 
, 16,42 
,20,46 
,24,50 
,28,54 
,32,58 
,36,62 
,40,66 
,44,70 
,48,74 



0484 



FF 



, BYTE EOL 



;END OF LIST. 



; ##*######**#**♦#########*#*#*##**#######*#**#*#**#***# 
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; SELECT DRIVE THRU BIOS * 

?####*##< DISPLAY MESSAGE AND WAIT FOR RESPONSE )*##### 



0485 


22 04D5 


SEL. 


,DR: 


SHLD 


MSG.SV 


0488 


2A 04D5 


..REPT: 


LHLD 


MSG.SV 


048B 


EB 






XCHG 




048C 


CD 0297 






CALL 


MSG.OT 


048F 


CD 029C 






CALL 


CNS. IN 


0492 


3 A 0501 






LDA 


RC.NBR 


0495 


FE01 






CPI 


1 


0497 


C2 0488 






JNZ 


. . REPT 



?save message address. 
5l0ad message address. 
?put address in de. 
; issue message. 
; console input. 
;load nmbr of chars. 
?see if one character. 
,'if not 1 char too bad. 



;####**#( SEE IF DRIVE LETTER GOOD )#**#####*####*##*## 



049A 


3A 0502 


049D 


D641 


049F 


DA 04B1 


04A2 


FE04 


04A4 


DA 04BA 


04A7 


D620 


04A9 


DA 04B1 


04AC 


FE04 


04AE 


DA 04BA 



LDA 


RC.TXT 


SUI 


-A- 


JC 


. . I LLC 


CPI 


04H 


JC 


. . NMBR 


SUI 


'A'--A 


JC 


. . ILLG 


CPI 


04H 


JC 


. . NMBR 



iLOAD LETTER. 
:GET NUMBER. 
[ILLEGAL, REPEAT. 
! DRIVE A THRU D? 
JGOOD NUMBER. 
(OFFSET LOWER CASE. 
: ILLEGAL, REPEAT. 
: LOWER A THRU D? 
! LEGAL DRIVE. 



;#######( EXIT TO RESELECT FUNCTION ) ###############*## 



04B1 


11 


07A2 


. . ILLG: 


LXI 


D,MSG.SE 


04B4 


CD 


0297 




CALL 


MSG.OT 


04B7 


C3 


0488 




JMP 


. . REPT 



. 'SELECT ERROR' 
; ISSUE MESSAGE. 
{REPEAT SELECTION. 



;#######( VALID DRIVE NUMBER )#«•######•«•#«•######«••«■####*# 



04BA 


32 04DE 


04BD 


4F 


04BE 


1E01 


04C0 


CD 02BC 


04C3 


7C 


04C4 


B5 


04C5 


CA 04B1 


04C8 


3A 04DE 


04CB 


C9 



NMBR: 



STA 


SV.NBR 


MOV 


CA 


MVI 


E, NO. LOG 


CALL 


BS.DSK 


MOV 


A,H 


ORA 


L 


JZ 


. . ILLG 


LDA 


SV.NBR 


RET 





5SAVE DRIVE NUMBER. 
? DRIVE NMBR TO C. 
SLOG ON VECTOR. 
5BI0S SELECT DISK. 
! CHECK RETURN ADDR. 
?SET FLAGS Z/NZ. 
;BIOS SAID NOGO IF 0. 
;GET NUMBER. 
? RETURN CALLER. 



; **#################**################################# 
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FORMAT - JADE DOUBLE D 
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; SOFTWARE TRAPS - DDT EXIT # 



04 CC 
04CD 



FF 

C3 016A 



RST.7: RST 
JMF 



7 
SELECT 



5EXIT FORMAT. 

; RETURN FOR SELECTION. 



• WORKING VARIABLES * 



04D0 


OFSO 


04D2 


0000 


04D4 


00 


04D5 


0000 


04D7 


00 


04D8 


00 


04D9 


00 


04DA 


00 


04DB 


00 


04DC 


00 


04DD 


00 


04DE 


00 


04DF 


00 


04E0 




0500 





TF.INX: 
TF.PTR: 
TF.DIR: 
MSG.SV: 
FT.STSs 
TS.FLG: 
TRK.NO: 
TRK.MX: 
SEC. NO: 
F.FLAG: 
SYS.RF: 
SV.NBR: 
FD.NBR: 



. WORD 
.WORD 
.BYTE 
.WORD 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 



STACK: .BLKW 
SP.TOP == 



0F80H 

























16 



? TRANSFER INDEX. 
;LIST ADDRESS POINTER. 
; TRANSFER DIRECTION. 
? MESSAGE SAVE ADDRESS. 
; FORMAT STATUS SAVE. 
;TWO SIDED DRIVE FLAG. 
! TRACK NUMBER HOLD. 
5 LAST TRACK LIMIT. 
5 SECTOR NUMBER HOLD. 
{FORMAT FLAG (DCM). 
? SYSTEM TRACK READ FLAG, 
5SEL.DV TEMP STORAGE. 
? FORMAT DRIVE NUMBER. 

! PROGRAM STACK AREA. 
?TOP OF STACK. 



; CONSOLE INPUT BUFFER AREA * 



0014 



CB.SIZ ===== 



20 



! CONSOLE BUFFER SIZE SET. 



0500 
0501 
0502 



14 
00 



RC.BUF: .BYTE CB.SIZ 
RC.NBR: .BYTE 
RC.TXT: .BLKB CB.SIZ 



? DECLARE BUFFER SIZE. 

5 INPUT STRING SIZE. 

? RESERVE CONSOLE BUFFER AREA. 



; ##############*#####*###################*########w#### 



TDL Z30 CP/M DISK ASSEMBLER VERSION 2. 
FORMAT - JADE DOUBLE D 
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0596 



0596 



; JADE SINGLE DENSITY - IDENTITY SECTORS * 



SIDED S DENSITY FORMAT 



; LOCATE CP/M 2.2 DPB. 
! SECTORS PER TRACK. 
; BLOCK SHIFT FACTOR. 
; BLOCK MASK. 

;exm. 

;DISK SIZE - 1. 

; DIRECTORY MAXIMUM. 

; ALLOC 0. 

; ALLOC 1. 

! CHECK SIZE. 

? TRACK OFFSET. 

; LOCATE DCM BLOCK. 

5 NOT USED. 

? DISKETTE FLAGS. 

; EXTEND FULL SECTOR. 



0516 


4A6 164652044 


IDS 


• SS" 


.ASCII 


"JADE DD 8 


0536 








.LOC 


IDS.SS+20H 


0536 


001 A 






. WORD 


26 


0538 


03 






.BYTE 


3 


0539 


07 






.BYTE 


7 


053A 


00 






.BYTE 





053B 


00F2 






.WORD 


26*75/8-1 


053D 


003F 






. WORD 


63 


053F 


CO 






.BYTE 


11000000B 


0540 


00 






.BYTE 





0541 


0010 






.WORD 


16 


0543 


0002 






.WORD 


2 


0546 








.LOC 


IDS.SS+30H 


0546 


00 






.BYTE 





0547 


02 


SD. 


FLG: 


.BYTE 


0000001 OB 



.LOC 



IDS.SS+SEC.SZ 



;##############****#########**###****#***####********** 
4A6 164652044 IDS.DS: .ASCII "JADE DD D SIDED S DENSITY FORMAT " 



05B6 




05B6 


001A 


05B3 


04 


05B9 


OF 


05BA 


01 


05BB 


00F6 


05BD 


003F 


05BF 


80 


05C0 


00 


05C1 


0010 


05C3 


0002 


05C6 




05C6 


00 


05C7 


OA 



.LOC 


IDS.DS+20H 


; LOCATE CP/M 2.2 DPB 


. WORD 


26 


; SECTORS PER TRACK. 


.BYTE 


4 


? BLOCK SHIFT FACTOR. 


.BYTE 


15 


! BLOCK MASK. 


.BYTE 


1 


?EXM. 


.WORD 


26*152/16-1 


JDISK SIZE - 1. 


. WORD 


63 


? DIRECTORY MAXIMUM. 


.BYTE 


10000000B 


? ALLOC 0. 


.BYTE 





J ALLOC 1. 


. WORD 


16 


; CHECK SIZE. 


.WORD 


2 


; TRACK OFFSET. 


.LOC 


IDS.DS+30H 


5 LOCATE DCM BLOCK. 


.BYTE 





;NOT USED. 


.BYTE 


0000 101 OB 


5 DISKETTE FLAGS. 



0616 



LOC 



IDS.DS+SEC.SZ 



; EXTEND FULL SECTOR. 



;*#**####**#####*#########*####****#*####*********#**## 



TDL ZSO CP/M DISK ASSEMBLER VERSION 
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0616 



; JADE DOUBLE DENSITY - IDENTITY SECTORS * 

4A6164652044 IDS.SD: .ASCII "JADE DD S SIDED D DENSITY FORMAT " 



0636 




.LOC 


IDS.SD+20H 


0636 


0032 


. WORD 


50 


0638 


04 


.BYTE 


4 


0639 


OF 


. BYTE 


00001 11 IB 


063A 


01 


.BYTE 


1 


063B 


00E9 


.WORD 


50*75/16-1 


063D 


003F 


. WORD 


63 


063F 


80 


.BYTE 


10000000B 


0640 


00 


.BYTE 





0641 


0010 


. WORD 


16 


0643 


0002 


.WORD 


2 


0646 




.LOC 


IDS.SD+30H 


0646 


00 


.BYTE 





0647 


06 


DD.FLG: .BYTE 


0000011 OB 



0696 



LOC 



IDS.SD+SEC.SZ 



? LOCATE CP/M 2.2 DPB. 

; SECTORS PER TRACK. 

; BLOCK SHIFT FACTOR. 

; BLOCK MASK. 

;EXM. 

?DISK SIZE - 1. 

; DIRECTORY MAXIMUM. 

"ALLOC O. 

; ALLOC 1. 

; CHECK SIZE. 

; TRACK OFFSET. 

; LOCATE DCM BLOCK. 
5 NOT USED. 
.•DISKETTE FLAGS. 

■EXTEND TO FULL SIZE 



0696 



4A6 164652044 IDS.DDs .ASCII "JADE DD D SIDED D DENSITY FORMAT " 



06B6 




06B6 


0032 


06B8 


05 


06B9 


IF 


06BA 


03 


06BB 


OOEC 


06BD 


007F 


06BF 


30 


06C0 


00 


06C1 


0020 


06C3 


0002 


06C6 




06C6 


00 


06C7 


OE 



. LOC 


IDS.DD+20H 


.WORD 


50 


. BYTE 


5 


. BYTE 


31 


.BYTE 


3 


. WORD 


50#152/32-l 


-WORD 


127 


.BYTE 


10000000B 


. BYTE 





.WORD 


32 


. WORD 


2 


.LOC 


IDS.DD+30H 


.BYTE 





.BYTE 


00001 HOB 



0716 



.LOC 



IDS.DD+SEC.SZ 



; LOCATE CP/M 2.2 DPB. 

5 SECTORS PER TRACK. 

; BLOCK SHIFT FACTOR. 

; BLOCK MASK. 

?EXM. 

5DISK SIZE - 1. 

? DIRECTORY MAXIMUM. 

! ALLOC O. 

; ALLOC 1. 

; CHECK SIZE. 

; TRACK OFFSET. 

; LOCATE DCM BLOCK., 

5N0T USED. 

; DISKETTE FLAGS. 

; EXTEND TO FULL SIZE 



;######*##■»###########*############*##########*##*##### 
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0716 



MSG.BG: ; CONSOLE SIGN ON * 



0716 


ODOA 


0718 


0D0A2D2D2D2D 


073A 


0D0A464F524D 


075C 


0D0A2D2D2D2D 


077E 


0D0A24 



.ASCII CCR3CLF3 

• ASCII CCR3CLF3-' 

.ASCII CCR3CLF3'FGRMAT 

.ASCII CCR3CLF3' 

.ASCII CCR3CLF3CEOM3 



UTILITY 2 - JADE DOUBLE D' 



0781 MSG.FD: 5 FORMAT ON DRIVE SELECT * 

0781 OD0A53656C65 .ASCII C CR 3 C LF 3 ' SELECT DRIVE TO BE FORMATTED: 'CE0M3 

07 A2 MSG.SE: J SELECTION ERROR * 

;##♦*###*#**####**####**•»'###*##*#*#####*#*##****«•■«■*#**# 

07A2 0D0A4E4F5420 .ASCII CCR3 CLF3 "NOT A VALID SELECTION 'CE0M3 



07BB 



07BB 
07BF 
07E1 
0803 
0825 
0827 
0847 
0867 
0887 
08AA 
08CD 
08CF 
0SF1 



MSG.FL: i DISPLAY FUNCTION SELECTIONS * 



ODOAODOA 

0D0A2D2D2D2D 

0D0A20202020 

0D0A2D2D2D2D 

ODOA 

0DOA20312E20 

0D0A20322E20 

0D0A20332E20 

0D0A20342E20 

0D0A20352E20 

ODOA 

0D0A2D2D2D2D 

0D0A24 



.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 

n nO'*« Jl J> 

.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 



CCR3CLF3CCR3CLF3 

CCR3CLF3" 

CCR3CLF3- 

CCR3CLF3- 

CCR3CLF3 

CCR3CLF3' 

CCR3CLF3" 

CCR3CLF3- 

CCR3CLF3- 

CCR3CLF3 

CCR3CLF3 



FUNCTIONS LIST 



1. 
2. 
3. 
4. 
5. 



FORMAT 

FORMAT 

FORMAT 

READ 

WRITE 



DOUBLE DENSITY 8" " 
SINGLE DENSITY S" ' 
STANDARD 3740 8" ' 
SYSTEM TRACKS IMAGE 
SYSTEM TRACKS IMAGE 



CCR3CLF3-' 

CCR3CLF3CEOM3 



08F4 MSG.SF: ? SELECT FUNCTION * 

08F4 0D0A454E5445 .ASCII C CR 3 C LF 3 ' ENTER FUNCTION NUMBER: "CE0M3 



TDL Z80 CP/M DISK ASSEMBLER VERSION 2.21 
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090E 



5 ###♦###########*#########################*###*###•((•#■».#«• 
MSG.RS: ;READ SYSTEM ON DRIVE # 



090E ODOA 

0910 0D0A52454144 



-ASCII CCR3CLF3 

.ASCII CCR3CLF3"READ SYSTEM FROM DRIVE: 'CE0M3 



092B 



MSG.NC: ? TRANSFER INCOMPLETE * 



092B 
092D 
0942 



ODOA 

0D0A5452414E 

0D0A24 



.ASCII CCR3CLF3 

.ASCII C CR 3 CLF 3 " TRANSFER INCOMPLETE" 

.ASCII CCR3CLF3CEOM3 



0945 



MSG.FE: ? FORMAT ERROR * 



0945 


ODOA 


0947 


0D0A464F524D 


095B 


0D0A24 



.ASCII CCR3CLF3 

.ASCII CCR3 CLF 3 "FORMAT TRACK ERROR" 

.ASCII CCR3CLF3CEOM3 



095E 



MSG.NR: ? SYSTEM NOT LOADED i 



095E 


ODOA 


0960 


0D0A53595354 


097A 


0D0A24 



•ASCII CCR3CLF3 

.ASCII CCR3 CLF 3 "SYSTEM TRACKS NOT LOADED' 

.ASCII CCR3CLF3CEOM3 



; ###*################*#######**##########*########*##*# 



NAME 


== 


(. !OFFH)+l 




.LOC 


NAME 


OFFSET 


.Z80 


FMT.EA-NAME 




.ASCII 


■-FORMAT!'' 3 



TDL Z80 CP/M DISK ASSEMBLER VERSION 2.21 RAGE 20 

FORMAT - JADE DOUBLE D 

"NJECTION MODULE - MACRO DEFINITIONS 

? FORMAT - TITLE BLOCK AND PAGE ALIGNMENT * 

.DEFINE FORMAT C NAME 3 = C 

!SET NEXT PAGE BOUNDRY. 
;SET LOC TO NEXT PAGE. 
? DETERMINE ADDR OFFSET. 
?NOW USE ZSO CODE. 
; INCLUDE HEADER! 

; DENSITY - DECLARE TYPE * 

.DEFINE DENSITY C TYPE 3 = C 

.IFIDN CTYPE3CSINGLE3, C 

.ASCII X S' 

.EXIT! 

.IFIDN CTYPE3CDOUBLE3, C 

.ASCII "D" 

.EXIT3 

.ERROR 'INVALID DENSITY' 3 

5 SECTORS - SPECIFY SEQUENCE AND NUMBER OF SECTORS * 
■#^##########################*#*##############*##*####* 

.DEFINE SECTORS C LI ST, NMBR 3 = C 

LXI H,LI5T+0FFSET ; SECTOR SEQUENCE ADDR. 

MVI E, NMBR 3 ? NUMBER OF SECTORS. 

; BLOCK - GENERATE A BLOCK OF CONSTANTS * 

.DEFINE BLOCK C COUNT, BYTE, %REPT 3 = C 

NMBR = COUNT ? SET EQUAL FOR NOW. 

MVI B,NMBR {LOAD NMBR OF BYTES. 

"/.REPT: IN XP,DSH ;WAIT FOR DATA REQ. 

MVI A, BYTE 5 LOAD BYTE VALUE. 

XRA C ; INVERT (1791-01). 

OUT WD.DTA ? WRITE DATA PORT. 

DJNZ "/.REPT 3 ; REPEAT FOR COUNT. 
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FORMAT - JADE DOUBLE D 

INJECTION MODULE - MACRO DEFINITIONS 

? REPEAT - REPEAT FORMAT SECTION FOR EACH SECTOR # 

.DEFINE REPEAT [LOCATION J = C 

OCR E ;DEC NMBR SECTORS LEFT. 

JMZ LOCATION+OFFSETJ 

! ENDING - RECORD NMBR OF TRAILING BYTES WRITTEN ♦ 
?#######*«###*##*###########*##*#*#**#####♦####*##*###.* 

.DEFINE ENDING CBYTE, 7.REPTJ = C 

; COUNT OF ZERO. 
XREPT: IN XP.DSH 5WAIT FOR REQ. 

5LOAD CONSTANT. 
; INVERT (1791-01). 
; WRITE TO PORT. 
; INCREMENT COUNT. 
JMP 7.REPT+0FFSET ! CONTINUE. 3 



LXI 


H,0 


IN 


XP. DSH 


MVI 


A, BYTE 


XRA 


C 


OUT 


WD.DTA 


I MX 


H 



TDL Z80 CP/M DISK ASSEMBLER VERSION 2.23 

FORMAT - JADE DOUBLE D 

IN ACTION MODULE - MACRO DEFINITIONS 



PAGE 



J WRITE - WRITE SPECIFIC FORMAT BYTES * 

;##*#####***#**#############«•#########«■##*#*###*##•»■#*#■» 

.DEFINE WRITE CTYPE.VALU3 = C 

;*#####*( ID ADDRESS MARK )####*#####*####*###*##**###* 

.IFIDN CTYPE3CID.MARK3, C 

IN XP.DSH ?WAIT FOR DATA REQ. 

MVI A.OFEH ?ID ADDR MARK. 

XRA C S INVERT (1791-01). 

OUT WD.DTA ," WRITE DATA PORT. 

.EXIT] 5 TERMINATE MACRO 

;#**#*#♦( INDEX MARK )#*#*########*#*#**#####***######* 

.IFIDN CTYPE3C INDEX. MARK3, C 

IN XP.DSH 5WAIT FOR DATA REQ. 

MVI A,OFCH ! INDEX MARK. 

XRA C 5 INVERT (1791-01). 

OUT WD.DTA ? WRITE DATA PORT. 

.EXIT3 J TERMINATE MACRO 

5 #*#####( DATA ADDRESS MARK )******#***#****#********** 



.IFIDN 


C TYPE] CDATA 


IN 


XP.DSH 


MVI 


A.OFBH 


XRA 


C 


OUT 


WD.DTA 


.EXIT] 




; ####### ( CRC ) 


«•##•«■*•##•»••*### 


. IFIDN 


C TYPE 3 C CRC 3 


IN 


XP.DSH 


MVI 


A,0F7H 


XRA 


C 


OUT 


WD.DTA 


.EXIT] 





SWA IT FOR DATA REQ. 
;DATA ADDR MARK. 
5 INVERT (1791-01). 
? WRITE DATA PORT. 
; TERMINATE MACRO 



;WAIT FOR DATA REQ. 
; GENERATE CRC. 
? INVERT (1791-01). 
; WRITE DATA PORT. 
; TERMINATE MACRO 



;##*##**( EXPLICIT BYTE VALUE )#####♦******##*#***#**#* 



.IFIDN 


C TYPE 3 C BYTE 


IN 


XP.DSH 


MVI 


A,VALLI 


XRA 


C 


OUT 


WD.DTA 


.EXIT] 




? #####** ( TRACK 


NUMBER >#** 


.IFIDN 


CTYPE3CTRAC 


IN 


XP.DSH 



5 WAIT FOR DATA REQ. 
;EXPLICIT VALUE. 
! INVERT (1791-01). 
; WRITE DATA PORT. 



)####•»##•«•#■»■■*########*■##*######** 



5 WAIT FOR REQUEST. 
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FORMAT - JADE DOUBLE D 

INJECTION MODULE - MACRO DEFINITIONS 

IN WD.TRK ?GET TRACK NMBR. 

OUT WD.DTA ; WRITE DATA PORT. 

.EXIT] 

5 #######( SECTOR NUMBER )###########■*##*##*#*##■**#■*#### 

.IFIDN CTYPE3CSECTOR.NO], C 

IN XP.DSH ?WAIT FOR REQUEST. 

MOV A,M 5 SET SECTOR NUMBR. 

XRA C 5 INVERT < 1791-01). 

OUT WD.DTA ; WRITE DATA PORT. 

I NX H ; INC SEC-NMBR PNTR. 

-EXIT J TERMINATE MACRO] 

;#######( SIDE NUMBER )*##########**####*###**##*###**# 

.IFIDN CTYPE3CSIDE.N0], C 

IN XP.DSH 5 WAIT FOR REQUEST. 

MVI A,0 ;SET SIDE NUMBER. 

XRA C 5 INVERT (1791-01). 

OUT WD.DTA 5 WRITE DATA PORT. 

•EXIT ; TERMINATE MACRO] 

;#######( SECTOR SIZE CODE )####*#*##################*•■»' 

.IFIDN CTYPEKSECTOR.SIZE], C 

SEC. CD = OFFH ; DECLARE BLANK. 

.IFIDN CVALU]C12S], CSEC.CD = OOOH] 

.IFIDN CVALUK256], CSEC.CD = 001H3 

.IFIDN CVALLUC512], CSEC.CD = 002H3 

.IFIDN CVALUJC1024], CSEC.CD = 003H] 

. I FE ( SEC . CD-OFFH ) , C 

.E:RR0R 'INVALID SECTOR SIZE"] 

IN XP.DSH 5WAIT FOR DATA REQ. 

MVI A, SEC. CD 5 LOAD SIZE CODE. 

XRA C ; INVERT (1791-01). 

OUT WD.DTA ? WRITE DATA PORT. 

-EXIT 5 TERMINATE MACRO] 

;*#*###*( ILLEGAL EXPANSION )######i*###*#####*### «■*•#### 

.ERROR 'ILLEGAL EXPANSION'] 
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FORMAT - JADE DOUBLE D 
"NJECTION MODULE FT3740 



OAOO 


464F524D4154 


FORMAT 


FT3740 


OA07 


53 


DENSITY 


SINGLE 


0A08 


21 17B5 


SECTORS 


SS3740,26 


OAOD 


0628 BG3740: 


BLOCK 


40, ONES 


0A18 


0606 


BLOCK 


6, ZEROS 


0A23 


DB80 


WRITE 


INDEX. MARK 


0A2A 


061A 


BLOCK 


26, ONES 


0A35 


0606 RP3740: 


BLOCK 


6, ZEROS 


0A40 


DB80 


WRITE 


ID. MARK 


0A47 


DB80 


WRITE 


TRACK. NO 


0A4D 


DB80 


WRITE 


SIDE. NO 


0A54 


DB80 


WRITE 


SECTOR. NO 


0A5B 


DB80 


WRITE 


SECTOR. SIZE, 128 


0A62 


DB80 


WRITE 


CRC 


0A69 


060B 


BLOCK 


1 1 , ONES 


0A74 


0606 


BLOCK 


6, ZEROS 


0A7F 


DB80 


WRITE 


DATA. MARK 


0AS6 


0680 


BLOCK 


128,0E5H 


0A91 


DB80 


WRITE 


CRC 


0A98 


061B 


BLOCK 


27, ONES 


0AA3 


ID 


REPEAT 


RP3740 


0AA7 


21 0000 


ENDING 


ONES 


0AB5 


010203040506 SS3740: 


.BYTE 


1, 2, 3, 4, 5, 


OABF 


0B0C0D0E0F10 


.BYTE 


11,12, 13,14, 15, 


0AC9 


15161718191A 


.BYTE 


21,22,23,24,25, 



4, 5, 6, 7, 8, 9, 10 
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INJECTION MODULE FTJ50D 
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OBOO 


464F524D4154 


FORMAT 


FTJ50D 




0B07 


44 


DENSITY 


DOUBLE 




0B08 


21 17AE 


SECTORS 


SSJ50D,50 




OBOD 


0650 BGJ50D: 


BLOCK 


3C04EH 




0B18 


0608 RPJ50D: 


BLOCK 


8, ZEROS 




0B23 


0603 


BLOCK 


3.0F5H 




0B2E 


DB30 


WRITE 


I D.MARK 




0B35 


DB80 


WRITE 


TRACK. NO 




0B3B 


DB80 


WRITE 


SIDE. NO 




0B42 


DB80 - 


WRITE 


SECTOR. NO 




0B49 


DB80 


WRITE 


SECTOR. SIZE, 


,123 


0B50 


DB80 


WRITE 


CRC 




0B57 


0616 


BLOCK 


22.04EH 




0B62 


060C 


BLOCK 


12, ZEROS 




0B6D 


0603 


BLOCK 


3.0F5H 




0B78 


DB80 


WRITE 


DATA. MARK 




0B7F 


0680 


BLOCK 


12S,0E5H 




OBSA 


DB80 


WRITE 


CRC 




OB91 


0611 


BLOCK 


17,04EH 




0B9C 


ID 


REPEAT 


RPJ50D 




OBAO 


21 0000 


ENDING 


ONES 




OBAE 


010B151F29 SSJ50D: 


.BYTE 


1.11.21.31. 


41 


0BB3 


020C16202A 


. BYTE 


2,12,22,32, 


42 


OBBS 


030D17212B 


. BYTE 


3.13. 23 . 33 > 


43 


OBBD 


040E18222C 


.BYTE 


4,14,24,34, 


44 


0BC2 


050F19232D 


.BYTE 


5,15,25,35, 


45 


OBC7 


06101A242E 


.BYTE 


6,16, 26 , 36 , 


46 


OBCC 


07111B252F 


. BYTE 


7, 17,27,37, 


47 


OBD1 


08121C2630 


. BYTE 


8,18,28,38, 


48 


0BD6 


09131D2731 


.BYTE 


9,19,29,39, 


49 


OBDB 


0A141E2832 


.BYTE 
.END 


10,20,30,40, 


50 
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BC.PTX 


0009 


BC.RCB 


OOOA 


BDOS 


0005 


BEGIN 


0100 


BG3740 


OAOD 


BGJ50D 


OBOD 


BS.DMA 


02C5 


BS.DSK 


02BC 


BS.FMT 


02D4 


BS.PTR 


0001 


BS.RDS 


02C3 


BS.SEC 


02C2 


BS.TRK 


02BF 


BS.VSZ 


0033 


BS.WRM 


02A4 


BS.WRS 


02CB 


B.MOVE 


02D7 


CB.SIZ 


0014 


CNS. IN 


029C 


CR 


OOOD 


DD.FLG 


0647 


EOL 


OOFF 


EOM 


0024 


FD.NBR 


04DF 


FMT.DD 


0321 


FMT.EA 


1700 


FMT.SD 


031B 


FMT.ST 


023B 


FT3740 


OAOO 


FTJ50D 


OBOO 


FT.ERC 


OOFE 


FT.STS 


04D7 


FT.TSM 


0001 


FUN. 1 


01AA 


FUN. 2 


0203 


FUN. 3 


01D2 


FUN. 4 


01EB 


FUN. 5 


025D 


F.FLAG 


04DC 


IDS.DD 


0696 


IDS.DS 


0596 


IDS.SD 


0616 


IDS.SS 


0516 


ID. SEC 


0001 


INIT 


0146 


LF 


OOOA 


LIST 


0164 


MSG.BG 


0716 


MSG.FD 


0781 


MSG.FE 


0945 


MSG.FL 


07BB 


MSG.NC 


092B 


MSG.NR 


095E 


MSG. OT 


0297 


MSG.RS 


090E 


MSG.SE 


07A2 


MSG.SF 


08F4 


MSG.SV 


04D5 


NMBR 


0011 


NO. LOG 


0001 


OFFSET 


OCOO 


ONES 


OOFF 


RC.BUF 


0500 


RC.NBR 


0501 


RC.TXT 


0502 


REBOOT 


0000 


RP3740 


0A35 


RPJ50D 


0B18 


RST.7 


04CC 


SD.FLG 


0547 


SEC. CD 


0000 


SEC. NO 


04DB 


SEC. SZ 


0080 


SELECT 


016A 


SEL.DR 


0485 


SP.TOP 


0500 


SS3740 


0AB5 


SSJ50D 


OBAE 


STACK 


04EO 


ST. DMA 


0324 


ST.LST 


03A9 


SV.NBR 


04DE 


SYS.RF 


04DD 


TF.DIR 


04D4 


TF. INX 


04D0 


TF.PTR 


04D2 


TKO 


0000 


TK1 


0001 


TPA 


0100 


TRK.O 


0000 


TRK. 1 


0001 


TRK. 2 


0002 


TRK.ER 


028E 


TRK. MX 


04DA 


TRK. NO 


04D9 


TRK. NX 


0279 


TRNSFR 


0355 


TS.FLG 


04D8 


WDD. ID 


02F2 


WD.DTA 


0007 


WD. TRK 


0005 


WRT. ID 


02FF 


WSD. ID 


02E2 


XP.DSH 


0080 


ZEROS 


0000 















DDT 

DDT VERS 2.2 

-IF0RMAT.COM 

-R 

NEXT PC 

0C00 0100 

-DAOO. AFF 

OAOO 46 4F 52 4D 41 54 21 53 21 B5 17 IE 1A 06 28 DB FORMAT'S! (. 

0A10 80 3E FF A9 D3 07 10 F7 06 06 DB 80 3E 00 A9 D3 . > >. . . 

0A20 07 10 F7 DB 80 3E FC A9 D3 07 06 1A DB 80 3E FF > >. 

0A30 A9 D3 07 10 F7 06 06 DB 80 3E 00 A9 D3 07 10 F7 .„ > 

0A40 DB 80 3E FE A9 D3 07 DB 80 DB 05 D3 07 DB 80 3E . ,. > > 

0A50 00 A9 D3 07 DB 80 7E A9 D3 07 23 DB 80 3E 00 A9 '-... #..>.. 

0A60 D3 07 DB 80 3E F7 A9 D3 07 06 OB DB 80 3E FF A9 > 

0A70 D3 07 10 F7 06 06 DB 80 3E 00 A9 D3 07 10 F7 DB > 

0A80 30 3E FB A9 D3 07 06 80 DB 80 3E E5 A9 D3 07 10 . > > 

0A90 F7 DB 80 3E F7 A9 D3 07 06 IB DB 80 3E FF A9 D3 .„.> >. . . 

OAAO 07 10 F7 ID C2 35 17 21 00 00 DB 80 3E FF A9 D3 5.! >. . . 

OABO 07 23 C3 AA 17 01 02 03 04 05 06 07 08 09 OA OB .# 

OACO OC OD OE OF 10 11 12 13 14 15 16 17 18 19 1A 00 

OADO 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 

OAEO 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 

OAFO 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 

-DBOO, BFF 

OBOO 46 4F 52 4D 41 54 21 44 21 AE 17 IE 32 06 50 DB FORMAT ! D ! . . . 2. P. 

0B10 80 3E 4E A9 D3 07 10 F7 06 OS DB 30 3E 00 A9 D3 .>N.... >. . . 

0B20 07 10 F7 06 03 DB 80 3E F5 A9 D3 07 10 F7 DB 80 . ,. > 

0B30 3E FE A9 D3 07 DB 80 DB 05 D3 07 DB SO 3E 00 A9 > 

0B40 D3 07 DB 80 7E A9 D3 07 23 DB SO 3E 00 A9 D3 07 -...#..> 

0B50 DB 80 3E F7 A9 D3 07 06 16 DB 80 3E 4E A9 D3 07 . ,. > >N. . . 

0B60 10 F7 06 OC DB 80 3E 00 A9 D3 07 10 F7 06 03 DB . , > 

0B70 80 3E F5 A9 D3 07 10 F7 DB 80 3E FB A9 D3 07 06 .> > 

0B80 80 DB 80 3E E5 A9 D3 07 10 F7 DB 80 3E F7 A9 D3 .,.> >. . . 

0B90 07 06 11 DB 80 3E 4E A9 D3 07 10 F7 ID C2 18 17 >N 

OBAO 21 00 00 DB SO 3E FF A9 D3 07 23 C3 A3 17 01 OB ! > # 

OBBO 15 IF 29 02 OC 16 20 2A 03 OD 17 21 2B 04 OE IS ..)... #...!+... 

OBCO 22 2C 05 OF 19 23 2D 06 10 1A 24 2E 07 1 1 IB 25 ",...#-...* 7. 

OBDO 2F 08 12 1C 26 30 09 13 ID 27 31 OA 14 IE 28 32 / . . . &0. . . ' 1 . . . < 2 

OBEO 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 

OBFO 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
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